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ABSTRACT 



The Computer Aided Prototyping System (CAPS) was created to rapidly prototype 
real-time systems to determine early in the development cycle whether system 
requirements can be met . The CAPS consists of several software tools that automatically 
generate an executable Ada model of the proposed system. This thesis describes the 
development of a design database (DDB) for the CAPS. The DDB is an engineering 
database that contains all information related to a prototype software design. The DDB 
enhances the CAPS environment and the prototyping paradigm by providing to the 
designer the functions of storage, retrieval, viewing, and versioning of prototype 
components. 

Garry Lewis is the primary author of chapters I and II and Drew Dwyer the primary 
author of chapters III and IV. In the joint implementation, Lewis focused on the design 
database schema and C++/ONTOS issues. Dwyer was responsible for building the 
command line interface, the hierarchical k-ary data structures and the C++ classes/methods 
for traversing this structure. Items not covered in the above description were mutually 
developed. 
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I. INTRODUCTION 



A. SOFTWARE ENGINEERING 

Each year billions of dollars are allocated for the development and maintenance of 
progressively more complex weapons and communications systems [Ref. l:p. 14]. These 
systems increasingly rely on information processing using embedded computers systems. 
Satellite control systems, missile guidance systems and communication networks are 
examples of embedded systems. Correctness and reliability of these software systems is 
critical to the reliable operation of national defense systems. Moreover, software 
development of these systems is an immense task with increasingly higher costs and 
potential for misdevelopment. 

Studies conducted in the early 1970’s showed that computer software alone 
comprised approximately 46 percent of the estimated total DoD computer cost. Of this cost, 
56 percent was devoted specifically to embedded systems [Ref. l:p. 14]. In spite of the 
tremendous cost, there were examples of software systems produced that exceeded 
estimated development cost, fell behind the production schedule and were delivered not 
fully functional. 

Software engineering developed in response to the need to design, implement, test, 
install and maintain more efficiently and correctly larger and more complex software 
systems. Numerous methodologies have been introduced to support software engineering. 
The two major approaches which underlie these different methodologies are the phased 
refinement and prototyping method of development. 

The predominant model for current application development is the phased refinement 
approach. In this approach, all system functionality is specified in the first step of 
development, and subsequent implementation phases add prescribed design details. This 
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approach is criticized for its high cost of maintenance, failing to abstract tasks early in the 
development process, and for complications in system integration. Prototyping, as an 
evolutionary system development paradigm in which a number of nonstandard concepts 
work together, promises to achieve effective evolution of integrated hardware/software 
systems. 

Prototyping is the process of developing a scaled-down version of a system to use in 
building a full-scale system. Computer-aided rapid prototyping promises to provide a 
means for building a scaled-down version of a system more quickly than using 
conventional approaches. The final product of the prototyping activity is a working model 
that can be used for many purposes, such as requirement validation, feasibility study for a 
complex system, and functional specification of a system design. [Ref. 2:p.9] Figure 1 
illustrates the role of prototyping in software development.. 

The process model differs from the traditional phased approach in that it concentrates 
on the hard problem of system development, namely; requirement specification, and design 
rather than coding. Equally important, validation, evaluation, and hardware/software trade- 
off analysis are all part of the development process-they do not just follow completion of 
the development in each phase. Rapid prototyping works by providing continuous feedback 
information as rapidly and efficiently as possible. [Ref. 2:p. 9] 

B. THE COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 

The evolution development of a software system design requires an integrated design 
support environment. A typical structure for a design environment that supports the rapid 
prototyping paradigm and the evolution process model is that provided by the CAPS [Ref. 
4:p. 15]. 

CAPS is a rapid prototyping environment which includes the ability to prototype hard 
real-time systems. This approach to rapid prototyping uses a specification language called 
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Figure 1. Process Model for Software/System [Ref. 3: p.7] 

Prototyping System Design Language (PSDL) and an integrated set of prototyping tools. 
The tools are integrated through the user interface. The primary tools in CAPS may be 
divided into three main systems [Ref. 4:p. 15]. The subsystem and their tools are: 

The User Interface which is composed of the following tools: 

• Graphic Editor 

• Syntax Directed Editor 

• Browser 

• Expert System 



The Software Base System which is composed of the following tools: 
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• Software Design Management System 

• Design Database 

• Software Base 

The Execution Support System which is composed of the following tools: 

• Translator 

• Static Scheduler 

• Dynamic Scheduler 

• Debugger 

The Graphic Editor is a tool which permits a designer to specify a portion of a PSDL 
prototype using graphical objects to represent the system. Graphical objects include 
operators, inputs, outputs, data flows, and self loops on operators. All graphic objects are 
named and may have time constraints associated with them. 

The Syntax Directed Editor is used by the designer to enter the text portions of the 
prototype design not represented by the graphic editor and to ensure that the prototype is 
syntactically correct PSDL. 

The Browser provides a means for the designer to view reusable components in the 
software base. 

The Expert System provides a paraphrasing capability that generates English text 
descriptions of PSDL specification. This tool permits users who are unfamiliar with the 
PSDL language to evaluate a prototype. 

The Software Design Management System manages and retrieves the versions, 
refinements, and alternatives of the prototype in the Design Database and the reusable 
components in the software base. 

The Design Database contains PSDL prototype descriptions for all software projects 
developed using CAPS. 

The Software Base contains PSDL descriptions and implementations for all reusable 
software components developed using CAPS. [Ref. 5] 
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The Translator generates high level code from the PSDL prototype which binds the 
reusable components from the software base to the executable prototype. [Ref. 6] 

The Static Scheduler attempts to allocate time slots for the representation of PSDL 
operators with real-time constraints before the prototype is executed. If the allocation 
succeeds, all operations are guaranteed to meet their deadlines. [Ref. 7] 

The Dynamic Scheduler invokes representation of operators with real-time constraints 
at run-time to occupy time slots which are not used by operators with real-time constraints. 
The time slot which the dynamic scheduler uses are “slack times”. Dynamic scheduling 
occurs during execution of the prototype. [Ref. 7] 

The Debugger allows the designer to interact with the execution support system. The 
debugger has facilities for initiating the execution of a prototype, displaying execution 
results or tracing information of the execution and gathering statistics about a prototype’s 
behavior and performance. 

Prior to the work described in this thesis, implementations had been developed for the 
graphic editor, translator, static scheduler, and user interface. The design of a debugger has 
been defined. Feasibility studies had been conducted for the syntax directed editor, design 
database and the software base. 

C, PROBLEM STATEMENT 

Vast amounts of evolving data are created in the design of hard real-time systems. The 
data must be managed so that it can be stored and retrieved according to the needs of a team 
of design engineers. In CAPS, the Design Database (DDB) must manage the storage and 
retrieval of the PSDL program. The DDB must be a specialized DBMS which will store 
PSDL specifications in a hierarchical format and manage all support files associated with 
a software design project. [Ref. 8:p. 5] 
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The DDB also provides concurrency control functions that allow multiple designers to 
update parts of the prototype without unintentional interference. In the interest of 
minimizing delay, the design database will not lock out read-only access to any part of the 
design, even while the design is being updated. Instead, the system will allow examination 
of the previous version of the component, with a warning that a new version is currently in 
preparation. On request, the system will provide information about the reason for 
modification of the component (such as a new or modified requirement). 

D. OBJECTIVES 

The objective of this thesis is to develop an object-oriented design database for the 
CAPS. The design database must be accompanied by a user interface that enables the 
designer to perform routine database tasks such as opening, closing, querying, storing, and 
retrieving operations. 

E. ORGANIZATION 

Chapter II contains a survey of the requirements for an engineering database with an 
emphasis on the object-oriented approach. An introduction to ONTOS, a state of the art 
object database will conclude Chapter II. Chapter III contains the design of the database 
objects. Chapter IV shows the design database implementation details using C++ and 
ONTOS. Conclusions and recommendations will be presented in Chapter V. 
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II. BACKGROUND 



A. ENGINEERING DATABASE 

An engineering database should provide the following facilities to support computer- 
aided software development environments: 

• Persistence 

• Concurrency control 

• Version control 

• Reuse of past design objects 

• Configuration control 

• A wide variety of data storage 

• Guarantees data will not be corrupted due to system or media failure 

A fundamental feature provided by a database is persistent storage. If objects are 
persistent, this means the objects in the database will exist after the process that created 
them has terminated. [Ref. 9:p.472] 

In a design environment, one usually has to keep data on several design alternatives, 
revisions, design stages, and so on. Hence information about the same semantic entity has 
to be recorded more than once. If versioning is implemented in the DBMS’s storage 
subsystem, then it can be done on fine granularity components. When creating a new 
version, only those components that have changed since the previous version need to be 
stored. In the new version, unchanged components can be represented by pointers to their 
previous versions. This is efficient in storage because only the changed components are 
repeated in the new versions. It is also efficient in execution time; since versions are not 
encoded they can be retrieved directly instead of being reconstructed using change logs, as 
in RCS and SCCS. [Ref. 10:p. 168] 

The goals of configuration management include recording the development history of 
evolving systems, and aiding the management of the systems in guiding and controlling 
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their evolution [Ref. 1 l:p. 918]. A structure that captures the evolution of a design in terms 
of its hierarchical decomposition, alternative implementation and revision history, is 
crucial to the effective reuse of past design objects. 

The partitioning of the design task across levels of abstraction and between many 
design engineers requires the design database to support concurrent access and implement 
concurrency controls. The issue of concurrent access for a design is significantly different 
than for a conventional database application due to the different lengths of transactions that 
each must support. In a design environment, individual design objects may be “checked- 
out” for long periods of time [Ref. 12:p. 66]. However, over the course of some transactions 
other designers may require “access” to a design object that is already checked-out. The 
concurrency control system must therefore support an object locking mechanism that 
remains in the database after the current process has ended and permits a designer to view 
objects already checked out to be operated on by another designer. 

The design database must store a variety of formatted, unformatted, and variable- 
length objects such as program text. In addition to program text, the design database must 
store management information and natural language descriptions for documentation/ 
historical purposes. One of the criticisms of relational DBMS is that they are inadequate for 
the data handling requirements of a support environment. 

Securing data stored in a design database is another concern [Ref. 13: p. 37]. Some 
type of mechanism must exist whereby access to objects in the database can be restricted. 
Protecting high-value data (a civilian company’s proprietary information, or sensitive 
military data) from compromise requires a system that is sophisticated enough to 
distinguish different user access privileges and appropriately grant or deny access to a 
particular object in the database. 

Finally the database must ensure that data will not be corrupted due to system or media 
failures. 
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B. OBJECT-ORIENTED DATABASE MANGEMENT SYSTEMS 



Object-oriented database management systems (OODBMSs) in particular offer 
several features that promote rapid prototyping. One of the major advantages of the object- 
oriented paradigm is increased modeling power. Objects and their relationships in 
OODBMSs can be aligned very closely to objects and their relationships in the real-world. 
On the other hand, conventional data modeling paradigms such as file formats or relational 
models require considerable effort to force real-world objects into fixed programming 
constructs. Thus, a semantic gap exist between the way information is stored and the way 
it is used. Relational databases, in particular, are inadequate for storing complex 
information structures such as those in the CAPS. [Ref. 14:p. 32] 

OODBMSs typically provide a set of predefined system types, such as set, queue, 
stack, list, and ordered dictionary. This simplifies the modeling effort as the designer can 
concentrate on the problem at hand and not clutter the solution with “data structure” 
specific procedures. 

1. Modelling Object Relationships. 

Using a limited set of constructs to model diverse concepts inevitably leads to loss 
of exact meaning. OODBMSs provide several mechanisms to model different relationships 
among objects. Object specialization/generalization refers to the ability to organize objects 
in an is-a-kind-of hierarchy. Classification is the ability to relate an object to a group of 
objects via the is-an-instance-of relationship. Aggregation allows the programmer to model 
an object as an aggregate of its constituent objects. This type of relationship is known as 
the is-a-part-of relationship. [Ref. 14:p. 32] 
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2. Data Abstraction and Data Hiding. 

The advent of third-generation programming languages points out the need for a 
clear distinction between the storage structures associated with the data and the logical 
structure of the information. Data abstraction refers to the extreme case of this separation, 
where access to the storage structure may only be gained through a set of predefined 
operations. Data hiding insulates the programmer from the actual structure where data is 
stored. In OODBMSs, completely encapsulating an object with its data and operations 
forces the programmer to use the correct operations on all objects. In addition, a 
programmer need only know about the objects that his or her code uses. [Ref. 14:p. 33] 

3. Property/Operation Inheritance. 

Property/operation inheritance implies that an object type automatically has all 
the properties/operations of its parent type. This is one of the fundamental differences 
between OODBMSs and relational databases. [Ref. 14:p. 33] 

From the standpoint of rapid prototyping, operation inheritance is perhaps more 
valuable than property inheritance. A programmer does not need to reimplement the 
behavior that a type shares with its supertype. More importantly, this allows a programmer 
to assign default behavior to objects. In fact, once the subtype-supertype link is established 
in the is-a-kind-of hierarchy, a large amount of code automatically become available to the 
object, even before a single line of code specific to the new object type has been written. 
[Ref. 14:p. 33] 

4. Method and Trigger Combination. 

Method and trigger combination invokes writing several small modules of code 
and using them in different combinations to form methods for different types and situations. 
In conventional programming, this would involve many checks which would make the 
code inefficient. However, with OODBMSs, the automatic dispatching mechanisms (see 
the next section) allows programmers to combine modules by triggering them at the 
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appropriate places. Each object-specific operation module is designed to handle its 
additional set of properties and then invoke the corresponding module of its supertype. 

5. Generic Programming. 

In generic programming, programmers write code modules as general as possible 
so they can be used by different types of objects. Two essential features of the object 
paradigm-polymorphism and access to metainformation-help generic programming. 
Polymorphism is the ability to automatically dispatch a call to an appropriate routine 
according to the type of parameters passed. This feature makes code upward compatible 
and resilient to modifications [Ref. 14:p. 34]. Another characteristic of OODBMSs that 
makes a program resilient to the addition of new types is the accessibility of 
metainformation. The user- defined types are actually objects compiled into the database. 
They are therefore available to a program just like any other project. The advanced 
exception-handling capability of OODBMSs comes in handy in rapid prototyping. 
Typically, a large amount of code in an application’s final version deals with erroneous 
input data or other anomalous situations. Programmers would like to avoid such detailed 
error handling in early prototypes. If exceptions are also treated as objects, a programmer 
can initially write a simple exception handler for the most general type of exception. The 
programmer can then gradually refine this default exception handler as the prototype 
grows. 

C. ONTOS OBJECT DATABASE 

We used the ONTOS Object Database as the database engine for the design database. 
ONTOS, and its predecessor Vbase, are products of Ontologic, Inc. Vbase was used at the 
Naval Postgraduate School to test the feasibility of a design database after completion of a 
conceptual level design [Ref. 8:p. 9]. 

We conclude this section with a description of the functionality provided by the 
ONTOS Object Database. 
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ONTOS supports the full object model. The database schema represents object 
classes, data members (properties) and member functions (operations). Any class definition 
which can be specified in C++ can be stored in ONTOS as an ONTOS Type. 

ONTOS supports both the single and multiple inheritance model of object oriented 
programming. The class model that is used in the C++ application is represented in the 
database as object schema. ONTOS schema information is stored directly in the database 
as object data. 

ONTOS provides three interfaces for use by the application programmer: a C++ 
interface, an Object SQL interface, and a programmatic schema manipulation facility. We 
are primarily concerned with the C++ interface. ONTOS provides an interface to C++ 
which is simple to use. It provides a transparent database interface which is generated by 
ONTOS utilities. 

ONTOS uses a standard client-server architecture. C++ client applications interact 
with a logical ONTOS database server. The ONTOS database server provides object 
storage, transactions, concurrency control and other database services. C++ client 
application make requests to the database server to access and store objects. When a client 
application requests an object, the system automatically translates the object into its C++ 
in-memory representation and places the object in the C++ client application’s in-memory 
process heap. 

ONTOS provides Aggregate classes including Set, List, Array, and Dictionary. Sets 
adds the functionality of mathematical sets to C++. Sets are unordered, unkeyed 
Aggregates with no duplicate members. Lists provide the abstraction of linked list; 
logically, members are stored serially, in a chain. Each position in the chain is numbered, 
starting at position zero. An Array is an Association of declared size whose keys are a 
continuous range of integers and whose members are Entities. Dictionaries are 
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Associations whose keys and members are Entities and whose size is unrestricted. 
Dictionaries may be ordered or unordered. 

ONTOS supports the standard, locked-based transaction model which is common to 
all major database systems. The transaction protocol supports transaction start, checkpoint, 
commit and abort. Checkpoint allows a transaction to commit the changes made up to 
checkpoint and then to continue with the transaction. ONTOS transactions also support 
transaction journaling. Journaling maintains a log of changes made to the database within 
a transaction, which can be used to provide roll-forward recovery after a server process 
failure. 

In addition to the standard transaction model, ONTOS supports high-concurrency and 
shared transactions for workgroup applications, as well as nested transactions with 
transaction-based undo capabilities. 

Onto supports locking at the level of object, aggregate and page. Object-level locking 
provides locks on individual objects, thus providing the highest possible concurrency. 
Aggregate -level locking allows any aggregate of objects to be locked as a group, to provide 
higher-granularity locking and concurrency control strategies. Page-level locking provides 
optimum locking performance for large groups of objects physically clustered on disk. 

The high level of abstraction provided by C++, together with ONTOS’ complete 
support of the object model, matched against the requirements for a engineering database 
gave us complete confidence in our choice of tools for implementing a design database for 
CAPS. 
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HI. REQUIREMENTS SPECIFICATION 



Here we define and present a summary of the requirements specification for the DDB. 
This set of requirements was developed using the Berzins and Luqi model of Software 
Engineering. This model requires a problem statement, development of an 
environmental model and goals, and consideration of the constraints imposed on the 
system. [Ref. 9:p. 24] 

An additional methodology providing complimentary structure and style is Yourdon 
[Ref. 15]. In this approach the designer develops an Environmental Model and a Behavioral 
Model. The environmental model details interactions between the DDB and the user. The 
users in our model are the tool interface of the CAPS system and the end user (designer). 
The tool interface responds to the needs and queries of the end user and other tools in the 
CAPS system. The behavioral model describes the internal mechanisms at work in the 
DDB system. 

A. GOALS 

The goals of the DDB are as follows: 

• Provide functionality which supports the needs of a prototype designer 
using the CAPS system. 

• Develop a system which encapsulates data and functions together 

• Provide flexibility for future development and change 

B. DDB INTERFACES 
1. Tool Interface 

The tool interface is the glue which binds the individual CAPS tools together. A 
picture containing the tool interface and its relationship to the other tools is provided in 
Figure 2. The tool interface interprets and reformulates requests sent from one tool to 
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Figure 2. Computer Aided Prototyping Environment [Ref. 3:p. 16] 



another - modifying the request to achieve the desired output. A typical sequence of 
requests is shown in Table 1 in informal language. 
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TABLE 1: TYPICAL TOOL INTERFACE INTERACTION 



Tool 


Converses with 


Operation 


Graphic Editor 


Tool Interface 


“I want to view operator X” 


Tool Interface 


Design Database 


“Return operator X in Read Mode” 


Design Database 


Tool Interface 


“Operation Complete” 


Tool Interface 


Graphic Editor 


“Resume Operation” 



In the previous design of CAPS, if the designer had to communicate with a tool, 
that tool provided its own end user interface [Ref. 3:p. 21]. However, the DDB responds to 
commands only from the tool interface. The user interface required to query the DDB and 
store, retrieve, or manipulate prototypes is important for extending the DDB’s services to 
the end user. A graphical user interface has been developed as a separate tool that interacts 
with the DDB via the tool interface. This end user interface extends to the user those 
functions defined in chapter IV of this thesis. The end user interface is discussed briefly in 
the next section. 

2. End User Interface 

Due to the scope of the DDB’s requirements, we need to separate the DDB’s 
functionality from the user interface functionality. For this reason the end user interface 
requirements of the DDB were removed and developed separately from the functions 
provided by the DDB. A graphical user interface developed at the Naval Postgraduate 
School allows the designer to take full advantage of the functions provided by the DDB 
[Ref. 14]. The user interface runs under the control of the tool interface. An example of the 
screens which a user will see when he requests access to prototypes stored in the DDB is 
illustrated in Figures 3 through 6 . These figures illustrate the sequence of panels a designer 
will see/use when generating the following DDB commands: 

• List the names of the initial decomposition of prototype operators stored in 
the DDB and search for a component contained inside of the composite 
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component “user_interface” 

View a component’s PSDL Source 
Select and Edit a prototype’s attributes 



File Edit View Select Quit 



ddbS3 



c3i 



Database: 

Prototype: 
Configuration: |sparc 
Operator 



Version 



R 


■ • 






cuMis_imterface 


1 




cuMis_links 


1 




navigation system 


1 




sensor_interface 


1 




sensors 


1 




track_databasejmanager 


1 




user_interface 


1 




reapons_ interface 


1 




veapons_ systems 


1 



Figure 3. DDB User Interface (Search for Component) 



The user moves the selection bar to the desired versioned component (Operator). After 
the operator (user_interface) is highlighted, double click on that component to see the 
decomposition of that operator. The resulting view of the decomposition of the 
user_interface operator is shown in Figure 4. 

After the PSDL operator message_editor is highlighted (single clicking on that 
operator) the designer selects the pull-down menu option File and moves the selection bar 
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File 



Edit 
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Select Quit 



Prototype 
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Version 



Graphic PS 
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Ada Source 
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ddbS3 



c3i.user interface 
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Version 
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emergency_status_screen 


1 




get_nodificatian_data 


1 




get_user_inputs 


1 




intelligence_report_panel 


1 




manage_user_interface 


1 




message.arrival 


1 




message_arrival_panel 


1 


a 


message editor 


1 




resolution_notice_panel 


1 




status.screen 


1 









Figure 4. DDB User Interface (View PSDL Source) 



to PSDL Source. When that option is activated the user is able to view the contents of the 
PSDL Source for the message_editor (not shown). 

In Figure 5 the user highlights the prototype c3i and selects edit prototype. The results 
of this action (Figure 6) present the user with an edit screen which allows him to edit 
various data fields of the prototype. The composition of prototypes and other classes 
implemented in the DDB will be explained in Chapter IV. 

This method of developing the user interface (DDB->tool interface->user interface) 
enhances modularity and provides flexibility to the overall CAPS system. Consequently, 
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Figure 5. DDB User Interface (Edit Prototype )) 



whatever form the tool interface and other tools assume in the future, the functions of the 
DDB shall require little modification. Designing the DDB in this manner permits porting 
the CAPS system to different graphical user interfaces existing on a wide variety of system 
platforms. 

The above examples represent a small portion of the capabilities of this engineering 
database. These functions are further defined later in this thesis. Hereafter in this chapter 
the term “user” will be used generically to refer to the tool interface and/or prototype 
designer (end user). 
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Save Quit 


Prototype: c3i Date: Thu Sep 12 16:00:00 1991 

Leader: Marianne Aiello 

Description: 


rhis project deals with the command and control 
functions in the Aegis Cruiser line. 

Expected completion date is December, 1992. 

Team Members assigned to develop this Prototype 

John 646-5123 
Henry 646-7815 
MaryAnne 646-0917 


St 

9 


<a id 





Figure 6. DDB User Interface (Edit Prototype Panel) 



C. ENVIRONMENTAL MODEL 

The DDB statement of purpose, event list, and context diagram are contained in 
Appendix A. A summary of the model is presented in the remainder of this chapter. 

1. Working Environment 

Prototypes are developed in a system work area for CAPS development specified 
by a case sensitive Unix environment variable (SPROTOTYPE) defined by the user . The 
value of this variable should be the path name of a unique Unix directory. The DDB reads 
this system variable to ascertain where to output prototype components. Components are 
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immutable snapshots of prototype development efforts. Components may be composite - in which 
case they contain other components, or they may be atomic - in which case they do not have a 
decomposition. Atomic components may be transformed to composite components in future 
decompositions. Once a prototype is stored into the DDB, the database copy may not be altered. 
To modify a prototype, a copy of the prototype must be checked out of the DDB and put into the 
user’s local area. The user then modifies the working copy. When this copy is significantly altered 
and certified as an updated version it is checked back into the DDB as a new version of the 
prototype. This process is called threading components [Ref. 11]. 

2. Version Structure 

Each component represents a PSDL operator or type. Every component in the DDB has 
its own unique thread. This concept is illustrated in Figure 7. 



Versions of an Object 




Versions of a component are ordered by a thread. Each component in the database may 
reference several types of files generated by various CAPS tools. Figure 8 shows the potential set 
of files generated for a single component in the DDB. 

Inserting a component in a thread and storing it into the database can be modeled as 
creating a node in a multi-level acyclic graph. In the fully developed model, threads may split at 
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any point into variations [Ref 1 1]. In the current implementation, there is no provision for 
a segmented join of separate variations, although the groundwork has been laid in the 
design of object oriented structures which supports a transition to the full model. 
Decomposing components is an essential requirement for modeling the problem domain. 
This decomposition produces a multi-level k-ary hierarchy that must be navigated 
effectively to view and modify any version object upon demand. For this reason “walking 
the graph” [Ref. 17] is essential. 

Three of the primary entities identified for the DDB - a prototype, a 
configuration, and a versioned component will be discussed in the next section. 

Taken as a whole, CAPS, PSDL, and the DDB provides the software developer 
the ability to store, retrieve, and manipulate an unlimited number of prototypes and 
components. Working jointly with the other tools in the CAPS system, the DDB provides 
a capability never before available in computer aided prototyping. This enables the 
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development of large, real time, or embedded application prototypes more quickly and 
efficiently. 

D. BEHAVIORAL MODEL 

Just as a motion picture is a collection of still pictures, a prototype is a collection of 
versioned components. Our ability to understand a movie is directly related to how well we 
can grasp the relationship and flow from one frame to the next. Taken together as a movie, 
these frames can convey something of power and beauty. Developing a software prototype 
is analogous to understanding a movie. With the right grasp of the tools available in 
computer aided prototyping, we can form truly productive prototypes. It is the relationship 
of one version to the next that conveys the direction of future development. As this 
transformation is captured and tools such as this DDB become fully mature, changes in one 
component that are dependent on another will be largely realized by automated 
transformations internal to the tool. These DDB consistency checks ensure that all 
components interact through their relationship in a database hierarchy. It is for this reason 
that cataloging and indexing individual CAPS components is essential. This is referred to 
as Evolution Management. [Ref 11] 

The basic prototype functions are illustrated in Figure 9. 

The DDB supports the viewing, storing, and retrieving of prototype components in a 
central design repository. Since prototypes are usually multi-level decomposed subtrees, 
the DDB provides a mechanism for viewing the complete hierarchy of a prototype 
components. The DDB stores components required by the other CAPS tools indefinitely. 
The DDB has no destructive capabilities on the attributes displayed in Figure 8. Once 
prototypes are posted to the DDB they will never be removed - although a capability to 
migrate prototypes to archival storage such as tape is planned. The DDB supports the 
concept of configuration control on a desired slice of the entire prototype history. The DDB 
does not store repetitive copies of individual components which do not have different 
versions. 
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Edit/Create 




Figure 9. Basic DDB/CAPS Functions 



1. Design Constraints 

The DDB processes commands from the tool interface. The manner in which data 
is passed between the tool interface, the DDB, and the end user interface is illustrated in 
Figure 10. The tool interface controls the user interface. The DDB communicates indirectly 
with the end user through the user interface’s handling of output from the main function 
calls to the DDB. Since the functionality of the DDB is separated from the user, security is 
enhanced and there is less chance for error. 
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Tool 




Figure 10. Tool/User Interface 

2. Requirements 

The user interface captures the standard output and displays it to the user in a window. The data flow 
diagram of the DDB is shown in Figure 1 1 . The DDB first parses the command line to verify that the command 
contains a legal function tag and the appropriate number of arguments. A listing of the valid commands to the 
DDB is contained in Appendix B. After parsing the command, the DDB prepares the ONTOS DBMS for 
storage and/or retrieval by issuing specific ONTOS DBMS calls. Next the DDB reformulates the command 
and initiates the sequence of functions required to perform the transaction. At this point, the DDB will perform 
a query of persistent objects stored in the database or will create and input components designated to be 
checked into the database. The remaining step displays confirmation and/or displays the data to standard 
output (stdout). 

The end user can then choose to work with one of the other tools in the CAPS system for an indefinite 
period of time. When the designer/manager is ready to check a revision of the prototype back into the DDB 
he will provide the tool interface a prototype name and have the tool interface command the DDB to search 
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Figure 11. Design Database Data Flow 



the working directory defined by $PROTOTYPE to check modified or newly created 
components into the database as a new version of the prototype. 

The capabilities provided to the user will at a minimum contain the following high 
level operations: 

• Insert new prototypes into the DDB 

• View existing prototypes available in the DDB 

• View/Update prototype attributes 

• Insert new configurations into the DDB 

• View existing configurations available in the DDB 

• View/Update configuration attributes 

• Insert new components into the design DDB 

• View versioned components available in the DDB 

• Retrieve selected versions of components from the DDB 

• Prevent others from versioning components which are currently evolving 

• Update previous versions spawning alternate thread histories 

• View/Update component descriptions in the DDB 

In addition to the above capabilities, the DDB will allow the tool interface to: 

• Override component locking mechanisms 

• View component lock status 



26 



• View a worker which currently has a component locked 

• List decomposition of operator/type components and their descendants 

• Attach any component to a configuration 

• Navigate the hierarchy from any component directly or through a 
configuration. 

More generic database management capabilities are provided by the ONTOS 
object oriented database. These DBMS capabilities are considered vital to the successful 
implementation of any database management system. For further information pertaining to 
these and other ONTOS issues the reader is referred to Chapter II and the ONTOS (version 
2.01 beta) users’ manual. 
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IV. ARCHITECTURAL DESIGN 



Much of the analysis and research in this area dictates an object oriented approach for 
classifying the schema and functions of a prototyping storage and retrieval system. To 
version components which carry information relating to specifications of a software 
prototype the DDB is modeled in terms of its major classes TEXT_OBJECT, 
COMPONENT, VERSIONED_OBJECT, THREAD, CONFIGURATION, and 
PROTOTYPE. In this chapter we define these classes, their behavior and attributes, and the 
operations they perform. 

A. GOALS 

The process of developing this application utilizes the object-oriented Programming 
concepts of specification, implementation, and refinement [Ref. 18:p. 5]. First we collect 
the requirements in terms of user needs. The result of this phase is documented in Chapter 
III. The next step is to develop a conceptual solution to the requirements. We then convert 
these conceptual ideas into concrete classes and operations. This is accomplished by first 
converting the entity-relationship (ER) diagram to a functional specification. 

From the functional specification we determined that a command line interface would 
best satisfy the requirement for separating the functionality of the tool from other CAPS 
tools and from the end user. The command line interface divides the functionality into three 
distinct classes - functions dealing with prototype level operations, those concerned with 
configurations, and those dealing with versioned component objects. The complete 
command line interface is contained in Appendix B. 

Now we develop an informal solution followed by a formal solution to the stated 
design requirements. 
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B. DESIGN DATABASE 



1. Informal Solution 

The DDB must contain a class structure and methods which support the 
storage, retrieval, and management of CAPS prototypes. Next we integrate the ONTOS 
object oriented Database Management System with locally engineered classes and methods 
designed to support the informal solution and stated requirements. This equates to 
designing a database schema. Choosing this approach carries several distinct advantages: 

• Saves money because the DDB can be developed in less time 

• The ONTOS system provides an extensive developer’s library 

• Enhances Security 

• Network capabilities are built in 

• Encourages the use of off the shelf generic software programs 

• Incorporates enhanced documentation on data structures provided by 
ONTOS 

• Ensures modularity 

These and other advantages are discussed in Chapter II. 

2. Entities and Their Relationships 

The set of files reflected in Figure 8 become the primary attributes of a versioned 
component in the database. Other attributes required to effectively scope and manage these 
components and the unique capabilities supported by versioning are contained in the ER 
diagram shown in Figure 12. 

Figure 13 shows the lower level entities required to support the data structure of a 
versioned component. The entities THREAD, COMPONENT, and TEXT_OBJECT 
reflect the core elements stored as objects in the ONTOS database. 

3. Pre-defined ONTOS Classes 

The main ONTOS classes used in this DDB application are: 
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a. Object 

Object is the class used to create persistent objects in the DBMS. All classes 
requiring persistence must inherit from Object. Persistent objects exist for longer than the 
immediate I/O session. An object is persistent if you can store it in the database and retrieve 
it at a later time. If an object is persistent it must have a unique id. This identification 
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Figure 13. Design Database Entity Relationship Diagram 



number may be explicitly assigned by the DDB application or defaulted to a unique id key 
field generated by methods provided by this ONTOS class. This allows us to store several 
different components in the database with the appearance of each component having the 
same name. 

b. List 

Lists belong to a container class which can store other objects of any type. As 
a basic data structure, its sister class List_Iterator is used to iterate from one instance of an 
object to the next. 

c. Dictionary 

Working on an indexed set of objects contained within it. Dictionary is also a 
container class. It differs from List in its implementation and in its available methods for 
directly accessing any item contained within it based on key values. 

4. Design Database Classes 

The DDB classes and methods work to provide the user the functionality of a 
library. You can check components in or out. However, unlike a library, when you check 
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components out of the database for updating, a “copy” of the components is put into your 
private work area. These components are then flagged inside the DDB as being “locked”. 
This lock prevents other designers from checking out the same components for updating. 
The original component remains in the database and can never be altered. It is an immutable 
copy of the designer’s prototyping efforts at the time it was checked into the DDB. Other 
workers who attempt to check out the same versioned components may “view” the 
prototype, but may not modify or evolve the prototype into a newer version. The designer 
unlocks the prototype when it is checked back into the database. If changes were made to 
a component then that component will version. If no changes were made then versioning 
will not be necessary and will not occur. In either case, when a prototype is checked back 
into the DDB, the locks on components in that prototype are removed. 

A diagram of the class hierarchy for the persistent objects in the DDB is included 
as Figure 14. A class is a high level abstraction that represents something in the real world. 
All classes developed to support this model are further elaborated with a class description, 
behavior, attributes, and operations in the rest of this section: 

Persistent PPB Classes 

Class COMPONENT 

COMPONENT is an abstract class in the DDB. It is the core element in the DDB 
and represents a composite or atomic PSDL operator/type. As reflected in the ER diagram 
contained in Figure 10, a component contains a variable number of TEXT_OBJECTS. 

COMPONENT, like all persistent classes, is a descendant of the ONTOS class 
Object. If a class intends to store persistent objects in the ONTOS database then the class 
must inherit from the Object class. 

A diagram of these dependencies is shown in Figure 14. 

Behavior: 

COMPONENT is an abstract container class for TEXT_OBJECTS. It is 
important to note the distinction between atomic and composite components in the DDB. 
Atomic objects differ from composite objects in the following way: composite objects 
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Figure 14. Design Database Descendants of Class Object 



decompose into other composite and/or atomic objects, but an atomic object has no further 
decompositions. In the multi-way tree utilized by this application, atomic objects have no 
children. 

Set of Attributes: 

text_object_list -> contains the list of text_objects in the component. May contain 
between zero and five of the following files: 

Postscript: A file containing Postscript Description Language required by the 
graphic editor. 

Graph: A file containing shapes and geometric point information required by the 
graphic editor. 

Implementation: A file containing either Ada source code or a PSDL 
decomposition. This file is used by the syntax directed editor, the dynamic 
scheduler, and the translator. 

Specification: A file containing Prototype Specification Description Language 
(PSDL). This file is used by the syntax directed editor, the software base, the 
dynamic scheduler, and translator. 
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Source: ADA Code - a special file containing the source code for the component 
and/or prototype. 

Operations: 

COMPONENT -> creates an instance of the COMPONENT class. 

getDirectType -> returns an ONTOS Type 1 . 

getComponentNames -> returns the names of the TEXT_OBJECTS. 

getComponentSource -> restores the Postscript, graph, implementation, 

specification, and source file attributes of a versioned component to the 

appropriate files in the designer’s work area. 

addTextObject -> adds a TEXT_OB JECT to the COMPONENT. 

getPSfile -> restores the Postscript file attribute of a versioned component to the 

appropriate files in the designer’s work area. 

getGRAPHfile -> restores the graph file attribute of a versioned 

component to the appropriate files in the designer’s work area. 

getSPECfile -> restores the graph file attribute of a versioned component to the 

appropriate file in the designer’s work area. 

getIMPfile -> restores the graph file attribute of a versioned 

component to the appropriate file in the designer’s work area. 

getSOURCEfile -> restores the graph file attribute of a versioned 

component to the appropriate file in the designer’s work area. 

Class CONFIGURATION 

When a large prototype is developed and evolved from one version to another, the 
user may wish to selectively group different versions of the component and its graph 
subtree into more manageable sets. CONFIGURATION is an abstract class which allows 
the designer to more effectively deal with selected subsets of components. Remembering 
that the database will eventually consist of several versions of a prototype and its 
1. Refer to Chapter II Section C for definition of ONTOS Type 
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decomposed components, the user may decide to set up a configuration to reflect version 
number 1 (CONFIG l)and a newer configuration to reflect those components contained in 
version number 2 (CONFTG2). Working with configurations, the user may decide that the 
earlier configuration needs further refinement or that the older configuration is more suited 
to his application development needs. The DDB will allow the prototype developer to 
check out the older configuration and retrieve all components contained in that 
configuration with one single command. When the DDB is fully matured, that 
configuration will be checked back into the database as version 1.1 - spinning off a new 
thread from the base thread. This concept of a variation is not implemented in this version 
of the DDB, but will be developed in the next generation of the tool. 

Behavior: 

CONFIGURATIONS are entered into the database with commands given in 
Appendix B. A versioned component is then attached to the configuration as that 
configurations’ default versioned object. With this hook into the prototype tree structure, 
configurations allow the designer to navigate the prototype hierarchy - to store and/or 
retrieve versioned components quickly and efficiently to different work areas. 

Set of Attributes: 

config_status -> reflects the current status of design work. Possible values are ‘A’ 
- active; ‘T’ - archive to tape. 

config_manager -> shows who is managing the configuration. 

ConfCreationDate -> time/date that the configuration was created. 
conf_num_vobjects -> derived field containing the number of versioned 
components in the configuration. 

config_log_entry -> contains a running, non-erasable log journal reflecting all 
changes to the configuration. 

config_description -> A modifiable attribute which contains a generic description 
of the configuration. 
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theVersioned_Object -> the default versioned component which serves as this 
configuration’s entry point to the prototype hierarchical data structure. There is 
only one default versioned component per configuration. This is attached to a 
configuration after the configuration is inserted into the DDB. 

Operations: 

CONFIGURATION -> creates an instance of the CONFIGURATION class. 
getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

getConfigName -> displays the configuration name to stdout. 
name -> returns the configuration name. 
getConfigStatus -> displays the configuration status to stdout. 
getConfigManager -> displays the configuration manager to stdout. 
getConfigLog -> displays the configuration Log to stdout. 
getConfigDescription -> displays the configuration description to stdout. 
dumpConfigSummary -> displays the date created, manager, default versioned 
component, and description to stdout. 

listConfigOperators -> lists the entire configuration subtree (all operators from 
default versioned component). 

updateConfigManager -> updates the manager attribute. 
updateConfigName -> updates the name attribute. 
updateConfigStatus -> updates the status attribute. 
addtoConfigLog-> appends entry to the log attribute. 
updateConfigDescription -> updates the configuration description. 

Class PROTOTYPE 

PROTOTYPE is the highest level abstract class. A prototype represents all of the 
information associated with one prototyping project. 

Behavior: 
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PROTOTYPES are entered into the DDB with commands reflected in Appendix 
B. PROTOTYPE is a container class which maintains references to CONFIGURATIONS 
and versioned components (V_OBJECTS). This ability to logically group several 
configurations and/or components into one prototype allows the designer to more easily 
manage a variable number of projects at any one time. 

Set of Attributes: 

protleader -> the name of the prototyping project leader. 
protDictlndex -> Required by ONTOS for Dictionary maintenance. 
protCreationDate -> The time/date that the prototype was created. 
protDescription -> A reference to a TEXT_OBJECT containing a text description 
of the prototype. 

prot_configuration_list ->A reference to a list of configurations associated with a 
prototype. 

prot_default_configuration -> A reference to the last configuration inserted into 
the prototype. 

Operations: 

PROTOTYPE -> creates an instance of the PROTOTYPE class. 
getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

getName -> returns the PROTOTYPE object name. 

getConfigName -> returns default configuration object name. 

getPrototypeN ame -> displays prototype name to stdout. 

getPrototypeLeader -> displays prototype leader to stdout. 

getPrototypeDescription -> displays prototype description to stdout. 

changePrototypeName -> substitutes new name for existing name. 

changePrototypeLeader -> substitutes new leader for existing leader. 

updatePrototypeDescription -> substitutes new description for current 

description. 
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dumpPrototypeSummary -> displays the date created, leader, default 
configuration name, and description to stdout. 

addConfiguration -> adds configuration to prototype configuration list. 
listConfigurations -> lists configurations to stdout. 
setProtCreationDate -> sets the prototype creation date to system time. 
getProtCreationDate -> returns a time/date of prototype creation. 
getDefaultConfigName -> displays the default configuration name to stdout. 
getConfiguration -> returns the configuration requested. 
getDefaultConfiguration -> returns the default configuration. 
getVobject -> returns the most current versioned component matching the 
prototype name. 

Class TEXT OBJECT 

TEXT_OBJECT contains a file name and its associated text. 

Behavior : 

Accept the file name, construct an object in the ONTOS database to store the 
name and file contents, and read the file contents into the persistent object. 

Set of Attributes: 

the_file_name -> name of the tool file. 
the_text -> contents of the text file. 

Operations: 

TEXT_OBJECT -> creates an instance of the TEXT_OBJECT class. 
getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

append -> reads the contents of the file into the ONTOS object, 
text -> sends a stream to output file. 

rebuildTextFile -> rebuilds the text file in the user’s work area and returns 
completion status. 
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displayFileName -> displays the file name to stdout. 
getFileName -> return the file name, 
text -> returns the object’s text. 
resetTheText -> resets the text attribute. 

Class THREAD 

THREAD is a high level abstract class which contains one or more versions of the 
same component. Additional components added to a thread have a version number 
determined by incrementing the highest version number of a component in the thread by 
one. 

Behavior : 

A thread is created for every new component entered into the database. Most 
methods check for the existence of a THREAD prior to executing a requested operation. 
Set of Attributes: 

current_version -> version number of the most recent version on the thread. 
the_list -> an ONTOS reference to a List containing different versions of a 
component. 

Operations: 

THREAD -> creates an instance of the THREAD class. 
getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

getCurrentVersionNum -> returns the integer current version. 

current -> returns the versioned component (V_OBJECT) having the same 

version number as the current version attribute of the thread. 

version -> returns the versioned component (V_OBJECT) having the version 

number supplied by the calling method. 

add_object -> adds a new versioned component (V_OBJECT) to the thread. 
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display ThreadVersions -> display the version number of every versioned 
component (V_OBJECT) in the thread. 

displayThreadContents -> displays the version number and the description of 
every versioned component (V_OBJECT) in the thread. 

Class V_OBJECT 

V_OBJECT is an abstract persistentclass. It represents an immutable snapshot in 
time of an operator/type that was checked into the database as part of a prototype design. 

Behavior. 

V_OBJECTS are entered into the DDB with commands reflected in Appendix B. 
Only the root V_OB JECT must be entered by the user (tool interface). The TREE class then 
scans the directory for other operators which are descendants of that operator and 
constructs a tree structure for comparison to the contents of the database. 

Set of Attributes: 

theVersionNumber -> the component’s version number. 
creationDate -> the date the component was created. 

lockTime -> the date the component was created. Evaluated as the system’s epoch 
time if not locked. Epoch time means no lock is set and lockTime equals zero. 
node_name -> short node name. No ancestor information. The long name is 
contained in the THREAD class. 

creator -> name of the end user who created the component. 

worker -> if the component is locked, then this attribute contains the name of the 

worker who checked it out. 

visited -> a boolean used to navigate the tree structure. 
last_op_checkin -> a boolean used to prevent duplicate checkin operations. 
theDescriptionPtr -> TEXT_OBJECT containing the description for this 
versioned component. 

theThreadPtr -> pointer to the THREAD this versioned component is contained 
in. 
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theCOMPONENTPtr -> points to the component which contains the text object’s 

for this versioned object. 

theChildPtr -> points to a list of Children. 

theParentPtr -> points to the most current parent. 

Operations: 

V_OBJECT -> creates an instance of the V_OB JECT class. 
getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

connect_vobject_to_thread -> attaches a versioned component to a thread. 

setParent -> set’s versioned components Parent. 

setNodeName -> pulls the short node name from the thread name. 

getNodeName -> returns the short node name. 

getVobjName -> displays the component name. 

getName -> returns the component name. 

resetVisitedFlag -> used to navigate the tree. 

setVisitedFlag -> used to navigate tree. 

getVisitedFlag -> TRUE if visited, FALSE otherwise. 

getVObjComponentsName -> display the names of the text objects associated 
with this versioned component. 

display VersionNumber -> displays the component’s version number to stdout. 
getVersionNumber -> return the component’s version number. 
dumpVobjSummary -> displays the date created, creator, worker (or None if 
unlocked), lockTime (or NONE if unlocked), and description to stdout. 
setCreationDate -> The time/date that the component was created 
getCreationDate -> returns the time/date the component was created. 
setLock -> set’s the lockTime immediately following checkout. 
getWorker -> return the worker who has the component locked. 
getCreator -> return the end user who created the component into the DDB. 



41 



setWorker -> set the worker to the SUSER environment variable. 
resetLastOpTrue -> if last operation was a checkin, then set the last operation 
checkin attribute to TRUE, prevents duplicate checkins. 
resetLastOpFalse -> on a checkout, reset the last operation checkin to FALSE. 
get_last_operation -> returns TRUE if last operation was a checkin. 
releaseLock -> resets lock and returns completion status. 
getLockTime -> returns the lockTime of the component. 
getDescription -> displays the description to stdout. 

listChildren -> displays a list of children of this versioned component to stdout. 
longlistOperatorNames -> displays a long list of all operators/types in the subtree 
of this versioned component. 

listOperatorNames -> displays a list of all operators/types in the subtree of this 
versioned component. 

updateDescription -> updates the description attribute. 
addCOMPONENTNode -> adds a component to this versioned object. 
deleteChildNode -> deletes a reference from the list theChildPtr. 
addChildNode -> adds a reference to the list theChildPtr. 
getParent -> returns the parent of this versioned component. 
getCOMPONENT -> returns the component of this versioned object. 
dumpSubtree -> rebuilds the versioned components in read-only or read-write 
mode into an end user’s $PROTOTYPE directory. 

releaseLockSubtree -> releases the lockTime on all versioned components in this 
component’s subtree. 

getChildren -> returns the list of Children of this versioned component. 
getChildPtr -> returns TRUE if the cardinality of children of this component is 
greater than zero. 

checkoutCOMPONENTNode -> rebuilds all text objects of the component 
attribute of this versioned object and returns completion status. 
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Non Persistent DPB Classes 



Class DIRECTORY 

A non-persistent class designed to evaluate the status of prototypes being checked 
into the DDB. 

Behavior. 

This class has no direct relationship to the end user interface. The directory class 
searches the $PROTOTYPE subdirectory of the designer, determines what 
operators exist that match the prototype name, and develops a linked list of nodes 
to be inserted into a multi-way tree. The output from this class is passed to the 
TREENODE class for insertion of nodes into the persistent database. 

Set of Attributes: 

TREENODE_linked_list -> operator/type nodes contained in the user’s 
PROTOTYPE directory. 

Operations: 

DIRECTORY -> constructor for building a directory scanner. 
read_directory -> Given a root operator, scans the user subdirectory for prototype 
component matches. Builds a list of all prototype components. Stores the 
potential component matches in a linked list of operator nodes, 
updatetimestamp -> evaluates whether component files in the user work area are 
newer than the versioned component stored in the ONTOS database. This 
information is used by the TREENODE class when determining whether to create 
a new version of the component. 

find_treenode -> scans the linked list of operator nodes to build the multilevel k- 
ary tree of TREENODES. Both operator nodes and TREENODES use the same 
class structure, except that the operator nodes have no children (subtree) 
references. 
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getOperatorList -> required to build the multilevel k-ary tree. Returns the operator 
list defined by evaluating the users work area with the read_directory operation. 

Class QUEUE 

QUEUE contains the basic non-persistent queue data structure required to 
construct the multi-level k-ary hierarchy. 

Behavior: 

Implements basic queue functions. 

Set of Attributes: 

None. 

Operations: 

put -> append an operator TREENODE on the queue, 
get -> get an operator TREENODE from the queue, 
empty -> test the queue for empty status. 

Class slist, slink, slistiterator, slink_iterator 

These classes are non persistent abstract classes providing the generic capabilities 
of a singly linked list. 

Behavior : 

these classes contain the basic data structures required for queues and linked lists. 

Set of Attributes: 

e -> treenode pointer. 

next -> link pointer. 

ce, last -> slink pointer. 

cs -> slist pointer. 

Operations: 

slist, slink, slist_iterator, slink_iterator -> constructors, 
insert -> add TREENODE at head of list. 
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append -> add TREENODE at tail of list, 
get -> return TREENODE. 
clear -> remove all links, 
empty -> test for empty list. 

Class TREE 

A non-persistent class designed to build a multi-way tree of operator/types 
developed by the end user in the $PROTOTYPE directory. 

Behavior: 

The TREE class will establish the root operator and build the tree. 

Set of Attributes: 

tree_name -> assumes the name of the prototype root versioned component. 
theTreeRootNode -> TREENODE (root of multi-level k-ary tree). 

Operations: 

TREE -> constructor for building the root TREENODE. 
build_tree -> builds the multi-level tree. 

find_treenode -> returns a TREENODE from the input list of Operator nodes 
returned from DIRECTORY. 

Class TREENODE 

The most important non-persistent class designed to build a multi-way tree of 
operator/types developed by the end user in the $PROTOTYPE directory. 

Behavior : 

The TREENODE class is used to establish the operator node list, to convert the 
operator node list to a multi-level tree, and to compare each node in the multi-level tree to 
versioned components in the database. Component versioning occurs where the 
TREENODES have newer timestamps than the lockTime on the versioned components. 
Set of Attributes: 
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tree_node_name -> explicit name of node (from root node to level in subtree). 
Taken in its entirety, the tree_node_name contains the sequence of ancestor 
names from the entire prototype name to the given sub-component’s node_name. 
node_name -> unique name of operator/type without level/ancestor information, 
timestamp -> contains the operator/types most recent system time. Each tool 
updates the file when it creates or updates its product files, 
level -> root operator equals 1. Other nodes reflect the level where they reside. 
ChildrenList -> linked list of TREENODE descendants of this instance. 
ParentNode -> parent TREENODE of this instance. 

Operations: 

TREENODE -> constructor which reads directory and builds operator list, 
updatetime stamp -> reads the directory again for the newest of potential files for 
each operator/type developed by CAPS tools. Stores the result in timestamp, 
getname -> returns the TREENODE name. 
insertChildNode -> inserts a TREENODE into the ChildrenList. 
getChildren -> returns the linked list of Children TREENODES. 
getParentNode -> returns the Parent TREENODE of this instance. 
get_asc_time -> returns the 26 character ASCII time from the standard C function 
ctime. 

getlevel -> return the level of this TREENODE. root is level 1, successive levels 
increment by 1 . 

get_long_time -> return the timestamp. 

list_subtree -> lists each TREENODE from the root to each leaf node. 
checkin_subtree -> initiates the recursion for comparing the tree of TREENODEs 
to the hierarchical structure in the ONTOS database. 

checkin_node -> does the bulk of the loading into the ONTOS database. Creates 
new threads and versioned components when the TREENODE timestamp is more 
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current than the versioned component’s lockTime or where no thread with that 
operator name exists (new operator). 

C. TESTING AND EVALUATION 

The method used for checking the functionality of the DDB required an exhaustive 
check of many possible variations of the functions documented in Appendix B. To 
demonstrate that each of the commands produce the desired output, a unix shell script was 
generated which tested all of the functions. The complete version of this shell script test is 
contained in Appendix C. 

The output from this sequence of commands, also contained in Appendix C, shows 
that the testing phase answered two very important questions affirmatively - that this tool 
could successfully store and retrieve versioned components of prototypes as dictated by the 
design criteria; and that the software engineering design database could be developed as a 
stand-alone tool which interacted with other tools through the tool interface. 

The results of some commands can not be verified by running that command alone. It 
is only by running several commands in a series that the effect of one command changing 
the state of the database can be verified. Consequently, these types of tests were included 
in the testing phase. 

D. MAINTENANCE NOTES 

All code generated by the authors in support of this implementation effort is contained 
in Appendix D. 

This code was developed using version 2.0 of the Glockenspiel C++ compiler and the 
beta version 2.01 of the ONTOS object-oriented Database Management System. ONTOS 
tools included packages containing extensive capabilities for debugging in the form of the 
ONTOS graphical database browser (DBrowser). 

Special ONTOS header files and the makefiles used during compilation are contained 
in Appendix E. 
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V. CONCLUSIONS AND RECOMMENDATIONS 



A. SUMMARY 

The goal of this thesis research was to design and develop an engineering database 
which could store, version, and retrieve software prototype components. This database 
provides concurrent users the command functions to insert prototypes, store and manage 
configurations, and insert and retrieve components throughout the software engineering life 
cycle. 

The prototype functions allow the designer to store and retrieve management 
information concerning any of several potential prototype designs. 

The configuration functions allow the designer to more easily navigate the various 
versions of a software prototype. It provides him a “hook” for navigating the hierarchy 
from any specified component. With additional features such as grouping by configuration 
and logging, configurations provide powerful features and a sound design for the 
development of evolution management into the engineering database model. 

The versioned component functions give the designer the flexibility to checkout for 
modification or viewing specific prototype components; to expand, modify, and 
decompose these components with other tools in the CAPS system; and to check selected 
portions of those components back into the database at any time[Ref. 19]. 

B. RECOMMENDATIONS FOR FUTURE WORK 

1. Variations 

Variations will allow users to check out older versions of components and/or groups 
of components and evolve them to newer versions. When the updates are completed 
components will version correctly - splitting, updating, and rejoining threads where 
appropriate. Work must be done on other tools in the CAPS system to make them accept as 
input and produce as output components which contain version information. This will 
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provide the DDB with the necessary information for re-attaching components to the 
hierarchical structure at the correct location. 

2. Security 

This implementation of the engineering database does not address the issue of 
security other than the concurrency control mechanisms. This thesis makes no effort to 
distinguish between different levels of access or authorization for access to objects and 
their attributes. This is a subject that requires additional research and development. 

3. Evolution Management 

This program must be enhanced to incorporate the “uses” and “derives” 
properties [Ref. 1 1]. The database will then be capable of automatically flagging the effects 
that changing one component has on other components in the prototype. As components 
are checked out of the database they must take information with them pertaining to the 
version checked out. This is required to reattach components to the multi-way tree upon 
update. These and other evolution attributes will become an important ingredient for 
providing a fully functional engineering database. 
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APPENDIX A 



ENVIRONMENTAL MODEL 
A. STATEMENT OF PURPOSE 

The Purpose of the design database is to provide the designer a method of storing 
and retrieving components generated by the various tools of the COMPUTER AIDED 
PROTOTYPING SYSTEM (CAPS). This tool shall be flexible enough to expand as other 
tools are developed. It shall be capable of maintaining older versions of components as new 
components are developed. It shall allow the user to version new and/or older components 
with the common interface considerations. 
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B. EVENT LIST 



List prototypes 

List current version of prototype 
Select current version of prototype 

Check out current version of prototype’s components for viewing/update 
Add new version of prototype’s components 
List previous versions of prototype 
Select previous version of prototype 

Check out previous version of prototype’s components for viewing/update 
List selected prototype attributes (creation date, leader, etc) 

Update selected prototype attributes (leader, description, etc) 

List composite components (operators/types) 

List atomic components (operators/types) 

List selected versioned component attributes (date created, description, etc.) 
Update selected versioned component attributes (date created, description, etc.) 
List configurations 

List current default version of configuration in prototype 
Select current default version of configuration in prototype 
Check out current version of configuration for update 
Add new version of configuration’s components 
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C. CONTEXT DIAGRAM 




CAPS Interface Data Flow Diagram (partial/modified) [Ref. 3:p. 19] 
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APPENDIX B 



COMMAND INTERFACE 



A. PROTOTYPE COMMANDS 

Table 1: PROTOTYPE COMMANDS 



Tag 


Description 


Output 


Call 3 


PIP 


Insert Prototype 


Confirmation 


ddb <db> pip <p> b 
[leader] [description] 0 


PLN 


List Names 


Names (1 per line) 


ddb <db> pin 


PLL 


Long List 


Name/Default Config/ 
Default VOBJECT 


ddb <db> pll 




Retrieval Commands: 






PDS 


Dump Summary 


Date Created 
Leader 

Default Config 
Description 


ddb <db> pds <p> 


PRD 


Retrieve Date 


Date Created 


ddb <db> prd <p> 


PGL 


Get Leader 


Leader 


ddb <db> pgl <p> 


PGC 


Get Configuration 


Default Config 


ddb <db> pgc <p> 


PGD 


Get Description 


Description 


ddb <db> pgd <p> 




Update Commands: 






PUL 


Update Leader 


Confirmation 


ddb <db>pul <p> “new 
leader” 


PUD 


Update Description 


Confirmation 


ddb <db>pud <p> file 



a. <angle brackets> reflect required parameters, isquare bracketsj denote optional parameters. 

b. <db> db=any Ontos Database name. <p> p=any prototype name 

c. Passed in as a file-name or string 
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B. CONFIGURATION COMMANDS 



Table 2: CONFIGURATION COMMANDS 



Tag 


Description 


Output 


Call 3 


CIC 


Insert Configuration 


Confirmation 


ddb <db>cic <p> 

<c> b [manager] 

[description] 0 


CLN 


List Names 


Names (1 per line) 


ddb <db> cln <p> <c> 


CLV 


List Default VOBJECT 


Name/Version 


ddb <db> civ <p> <c> 


CLO 


List Operators 


Operator Name d / 
Version 


ddb <db> clo <p> <c> 


CLL 


Long List Default VOB- 
JECT’s Children 


Node e Name Aver- 
sion 


ddb <db> ell <p> <c> 




Retrieval Commands: 






CDS 


Dump Summary 


Date Created 
Date Changed 
Manager 

Default VOBJECT/ 

Version 

Description 


ddb <db>cds <p> <c> 


CDA 


Get Date Created 


Date Created 


ddb <db> cda <p> <c> 


CGM 


Get Manager 


Manager 


ddb <db> cgm <p> <c> 


CGD 


Get Description 


Description 


ddb <db> cgd <p> <c> 


CGL 


c 

ViewLog 


Log Entries 


ddb <db> cgl <p> <c> 




Update Commands : 






CUN 


Update Name 


Confirmation 


ddb <db> cun <p> <c> 
new_name 


CUM 


Update Manager 


Confirmation 


ddb <db> cum <p> <c> 
new_name 


CUD 


Update Description 


Confirmation 


ddb <db> cud <p> <c> 
file 
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Table 2: CONFIGURATION COMMANDS 



Tag 


Description 


Output 


Call 3 


CPL 


Post Log 


Confirmation 


ddb <db> cpl <p> <c> 
file 


CRL 


Release Lock 


Confirmation 


ddb <db> crl <p> <c> 
[version] 


CAA 


Update VOBJECT’s sub- 
tree 


Confirmation 


ddb <db> caa <p> <c> 


CAO 


Attach VOBJECT to CON- 
FIGURATION 


Confirmation 


ddb <db> cao <p> <c> 
<vobject> [version] 




Extraction Commands: 






CDT 


Dump VOBJECT subtree 


file(s) 


ddb <db> cdt <p> <c> 
R/W g [version] 



a. <angle brackets> reflect required parameters, [square brackets J denote optional parameters. 

b. <db> db=any Ontos Database name. <p> p=any prototype name <c> c = any configuration 
name 

c. Passed in as a file-name or string 

d. Operator name containing explicit path information for determining location (level) in heirar- 
chical data structure 

e. Node name containing no reference to location (level) in heirarchical data structure 

f. Log may be viewed only. Log can not be updated. Additional log entries are posted to the bot- 
tom of the current log. 

g. R/W dump file for Read-Only (R) or Write (W). Tool interface must supply either R or W to 
build files. 
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C. VERSIONED COMPONENT COMMANDS 



Table 3: VERSIONED COMPONENT COMMANDS 



Tag 


Description 


Output 


Call 3 


VAA 


Add VOBJECT & Sub- 
tree 


Confirmation 


ddb <db>vaa <p> <v> b 


VLO 


List Operators 


VOBJECT Name 0 / 
Version 


ddb <db> vlo <p> <v> 
[version] 


VLL 


Long List VOBJECT’s 
Children 


VOBJECT Name d / 
Version 


ddb <db> vll <p> <v> 
[version] 


VLP 


Long List VOBJECT’s 
Parent & Siblings 


VOBJECT Name/Ver- 
sion 


ddb <db> vlp <p> <v> 
[version] 




Retrieval Commands 






VDS 


Dump Summary 


Date Created 
Creator 

Worker (or NONE) 
Lock Time (or 
NONE) 
Description 


ddb <db> vds <p> <v> 
[version] 


VDD 


Get Date Created 


Date Created 


ddb <db> vdd <p> <v> 
[version] 


VGL 


Get Lock Time 


Date/Time Locked 


ddb <db> vgl <p> <v> 
[version] 


VGV 


Get Versions 


Version Number 
(1 per line) 


ddb <db> vgv <p> <v> 


VGD 


Get Description 


Description 


ddb <db> vgd <p> <v> 
[version] 




Update Commands: 






VUD 


Update Description 


Confirmation 6 


ddb <db> vgd <p> <v> 
file f 

[version] 
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Table 3: VERSIONED COMPONENT COMMANDS 



Tag 


Description 


Output 


Call 3 


VAA 


Add VOBJECT and 
subtree 


Confirmation 


ddb <db> vaa <p> <v> 
[version] 


VRO 


Release Lock Operator 


Confirmation 


ddb <db>vro <p> <v> 
[version] 


VRS 


Release Lock Operator 
and Subtree 


Confirmation 


ddb <db> vrs <p> <v> 
[version] 




Extraction Commands: 






VGP 


Get Postscript 


file 


ddb <db>vgp <p> <v> 

R/W g 

[version] 


VGG 


Get Graphics 


file 


ddb <db>vgg <p> <v> 

R/W 

[version] 


VGI 


Get Implementation 


file 


ddb <db>vgi <p> <v> 

R/W 

[version] 


VGC 


Get Specification 


file 


ddb <db>vgc <p> <v> 

R/W 

[version] 


VGS 


Get Source 


file 


ddb <db>vgs <p> <v> 

R/W 

[version] 


VDF 


Dump Operator 
Atomic 11 


file 


ddb <db>vdf <p> <v> 

R/W 

[version] 


VDT 


Dump Operator and 
Subtree 


file(s) 


ddb <db> vdt <p> <v> 

R/W 

[version] 



b. <db> db=any Ontos Database name. <p> p=any prototype name <c> v=any vobject name 

c. Operator name containing explicit path information for determining location (level) in heirar- 
chical data structure 

d. Node name containing no reference to location (level) in heirarchical data structure 

e. Only Creator may update description 
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f. file containing description 

g. R/W dump file for Read-Only (R) or Write (W). Tool interface must supply either R or W to 
build files 

h. Atomic is considered collection containing .ps .graph .imp.psdl .spec.psdl and .a file(s) 
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APPENDIX C 



TESTING AND EVALUATION 

A. NOTES ON TESTING AND EVALUATION 

For functions which return no visible output, the successful completion is marked by 
the standard output of: 

CAPS Engineering Design Database 1991(c) WP.DA.L.G 

Three Prototypes are inserted into the Engineering Database. These include one 
Command and Control Application (c3i) and two classroom applications (FishFarm and 
Robot). The purpose for inserting three applications is to test working with several 
prototypes. After demonstrating these functions, the remaining functions are run against the 
more comprehensive prototype created by the CAPS system called c3i. This prototype was 
selected due to it’s ability to fully exercise the “graph walking” capabilities of the model. 

B. TEST SCRIPT 



#!/usr/local/bin/tcsh 

clear 

echo ** **********************************************************************” 

echo “*NAVALPOSTGRADUATESCHOOL*” 

echo “ * Software Engineering *” 

echo “ * Design Database *” 

echo “ * Thesis Advisor Dr. Luqi 

echo “ * Written by: Drew Dwyer and Garry Lewis *” 

echo “ * Design Database vl.l WP.D.A.L.G . *” 

echo “**********************************************************************” 
echo “ “ 
echo “ “ 

echo -n “Press Return to begin demonstration “ 

set a=($<) 

clear 

echo “Running main ddb53 pip c3i ...” 
echo" “ 

main ddb53 pip c3i 

echo “Running main ddb53 pip fishfarm ‘Drew Dwyer’ ...” 
echo “ “ 

main ddb53 pip fishfarm “Drew Dwyer” 

echo “Running main ddb53 pip robot ‘Garry W. Lewis’ filel ...” 

echo “ “ 

main ddb53 pip robot “Garry W. Lewis” filel 



echo “ “ 
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echo -n “INSERT PROTOTYPE lest complete ... Press Return to continue “ 
set a=($<) 
echo" “ 
clear 

echo “Running main ddb53 pgd robot ...returns description to screen...” 
echo “ “ 

main ddb53 pgd robot 

echo “Running main ddb53 pud robot fde2 ...updates description ...” 
echo “ “ 

main ddb53 pud robot file2 

echo “Running main ddb53 pgd robot ..jetums the new description.” 
echo “ “ 

main ddb53 pgd robot 
echo “ “ 

echo -n “GET/UPDATE PROTOTYPE DESCRIPTION test complete ... Press Return to continue 

set a=($<) 

clear 



echo “Running main ddb53 prd c3i “ 
echo “ “ 

main ddb53 prd c3i 
echo “ “ 

echo -n “RETRIEVE PROTOTYPE DATE test complete ... Press Return to continue 

set a=($<) 

clear 



echo “Running main ddb53 pul robot Larry Williamson ...” 

main ddb53 pul robot “Larry Williamson” 

echo “ “ 

echo “ “ 

echo “ “ 

echo "Running main ddb53 pgl robot” 
main ddb53 pgl robot 
echo “ “ 

echo -n “UPDATE/GET PROTOTYPE test complete ... Press Return to continue ' 

set a=($<) 

clear 



echo “Running main ddb53 pds c3i ....” 
echo" “ 

main ddb53 pds c3i 

echo -n “Press Return to continue “ 

set a=($<) 

clear 



echo “Running main ddb53 pds fishfarm ...” 
echo “ “ 

main ddb53 pds fishfarm 

echo -n “Press Return to continue “ 

set a=($<) 

clear 



echo “Running main ddb53 pds robot ...” 
echo “ “ 

main ddb53 pds robot 
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echo “ “ 

echo -n “DUMP PROTOTYPE SUMMARY test complete ... Press Return to continue 

set a=($<) 

clear 

echo" “ 

echo “Running main ddb53 pin ...” 

echo “ “ 

main ddb53 pin 

echo “ “ 

echo -n “LIST PROTOTYPE NAMES test complete ... Press Return to continue “ 

set a=($<) 

clear 



echo “Running main ddb53 cic c3i unix ...” 
echo “ “ 

main ddb53 cic c3i unix 
echo “ “ 

echo “Running main ddb53 cic c3i dos ‘Drew Dwyer’ ...” 
main ddb53 cic c3i dos “Drew Dwyer” 
echo “ “ 

echo “Running main ddb53 cic c3i spare ‘Garry Lewis’ filel ...” 
main ddb53 cic c3i spare “Garry Lewis” filel 
echo“ “ 

echo -n “INSERT CONFIGURATION test complete... Press Return to continue 

set a=($<) 

clear 



echo “Running main ddb53 cum c3i dos ‘Marty Shoppenheimer’ ...” 
main ddb53 cum c3i dos “Marty Shoppenheimer” 
echo “ “ 

echo -n “UPDATE CONFIGURATION MANAGER test complete... Press Return to continue 

set a=($<) 

clear 

echo “Running main ddb53 cds c3i unix ...” 

main ddb53 cds c3i unix 

echo -n “Press Return to continue “ 

set a=($<) 

clear 



echo “Running main ddb53 cds c3i dos ...” 

main ddb53 cds c3i dos 

echo -n ‘Tress Return to continue “ 

set a=($<) 

clear 



echo “Running main ddb53 cds c3i spare ...” 
main ddb53 cds c3i spare 

echo -n “DUMP CONFIGURATION SUMMARY test complete... Press Return to continue 

set a=($<) 

clear 



echo “Running main ddb53 cgd c3i spare ...” 
echo “ “ 

main ddb53 cgd c3i spare 
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echo -n “Press Return to continue 

set a=($<) 

clear 



echo “Running main ddb53 cud c3i spare file2 ...” 
echo “ “ 

main ddb53 cud c3i spare file2 
echo -n “Press Return to continue “ 
set a=($<) 
clear 



echo “Running main ddb53 cgd c3i spare ...” 
main ddb53 cgd c3i spare 

echo -n “CONFIGURATION DUMP SUMMARY test complete... Press Return to continue 

set a=($<) 

clear 



echo “Running main ddb53 eda c3i spare ...” 
echo" “ 

main ddb53 eda c3i spare 
echo"" 

echo -n “GET CONFIGURATION DATE test complete... Press Return to continue” 

set a=($<) 

clear 



echo “Running main ddb53 cpl c3i spare ‘This is the first Post to Sparc Log’ “ 
echo “ “ 

main ddb53 cpl c3i spare “This is the first Post to Sparc Log” 
echo"" 

echo “Now check it to see that it’s posted...” 
echo “ “ 

echo “Running ddb53 egl c3i spare ...” 
echo “ “ 

main ddb53 egl c3i spare 

echo -n “Press Return to continue “ 

set a=($<) 

clear 

echo “Add another line to the log ...” 

echo “Running main ddb53 cpl c3i spare ‘This is the second Post to Sparc Log’ “ 
echo “ “ 

main ddb53 cpl c3i spare “This is the second Post to Sparc Log” 
echo “ “ 

echo “Show the results ...” 

echo “Running ddb53 egl c3i spare ...” 

echo “ “ 

main ddb53 egl c3i spare 
echo “ “ 

echo -n “POST/GET CONFIGURATION LOG test complete... Press Return to continue” 

set a=($<) 

clear 



echo ““ 

echo “Running main ddb53 cgm c3i dos ...” 
main ddb53 cgm c3i dos 
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echo “Now we’ll change the manager to ‘Kelly Mcdowell’ “ 
echo “ “ 
echo “ “ 

echo “Running main ddb53 cum c3i dos ‘Kelly Mcdowell’ ...” 
main ddb53 cum c3i dos “Kelly Mcdowell” 
echo “ “ 
echo “ “ 

echo “Now make sure it posted...” 
echo “Running main ddb53 cgm c3i dos ...” 
main ddb53 cgm c3i dos 
echo" “ 

echo -n “GET/UPDATE CONFIGURATION MANAGER test complete... Press Return to continue” 

set a=($<) 

clear 



echo “Running main ddb53 cln c3i ...” 
main ddb53 cln c3i 
echo “ “ 

echo -n “LIST CONFIGURATION NAMES test complete... Press Return to continue” 

set a=($<) 

clear 

echo “We now move on to the actual loading of the ONTOS Database. “ 
echo “ “ 

echo “Running main ddb53 vaa c3i c3i ...” 
main ddb53 vaa c3i c3i 
echo" “ 

echo “Add c3i test complete... Now we’ll add a different Prototype “ 
echo -n “called fishfarm. Press Return to continue...” 
set a=($<) 
clear 



setenv PROTOTYPE /n/gemini/work/dwyer/SCCS/fish 
echo “Running main ddb53 vaa fishfarm fishfarm ...” 
main ddb53 vaa fishfarm fishfarm 
echo “ “ 

echo “Add fishfarm test complete... Now we’ll add a different Prototype “ 
echo -n “called robot Press Return to continue...” 
set a=($<) 
clear 



setenv PROTOTYPE /n/gemini/work/dwyer/SCCS/robot 
echo “Running main ddb53 vaa robot robot ...” 
main ddb53 vaa robot robot 

echo “Add robot test complete ... Press return to continue” 

set a=($<) 

clear 

setenv PROTOTYPE /n/gemini/work/dwyer/caps/proto 
echo" “ 

echo “Now show the PLL command to reflect that each Prototype has a default version” 
echo “ “ 

echo “Running ddb53 pll ...” 
main ddb53 pll 

echo -n “LOAD V_OBJECT and SUBTREE test complete... Press Return to continue” 

set a=($<) 

clear 
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echo “Running main ddb53 vlo c3i c3i ...” 
echo “ “ 

main ddb53 vlo c3i c3i 
echo 

echo -n “Press return to continue ...” 

set a=($<) 

clear 

echo “Running main ddb53 vll c3i c3i ...” 
echo** “ 

main ddb53 vll c3i c3i 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 

echo “Running main ddb53 vlo c3i c3i.comms_interface ...” 
echo “ “ 

main ddb53 vlo c3i c3i.comms_interface 
echo -n “Press Return to continue ...” 
set a=($<) 
clear 

echo “Running main ddb53 vll c3i c3i.comms_interface ...” 
echo “ “ 

main ddb53 vll c3i c3i.comms_interface 
echo “ “ 

echo -n “V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue” 

set a=($<) 

clear 

echo “Running main ddb53 vlo c3i c3i.comms_interface.resolve_outgoing_messages ...” 
echo “ “ 

main ddb53 vlo c3i c3i.comms_interface.resolve_outgoing_messages 
echo -n “Press Return to continue ...” 
set a=($<) 
clear 

echo “Running main ddb53 vll c3i c3i.comms_interface.resolve_outgoing_messages ...” 
echo “ “ 

main ddb53 vll c3i c3i.comms_interface.resolve_outgoing_messages 
echo “ “ 

echo -n “V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue” 

set a=($<) 

clear 

echo “Running main ddb53 CAO c3i unix c3i ...” 
echo “ “ 

main ddb53 cao c3i unix c3i 
echo “ “ 

echo “Running main ddb53 cao c3i dos c3i.user_interface “ 
echo “ “ 

main ddb53 cao c3i dos c3i.user_interface 

echo “Running main ddb53 cao c3i spare c3i.comms_interface.resolve_outgoing_messages” 
echo “ “ 

main ddb53 cao c3i spare c3i.comms_interface.resolve_outgoing_messages 
echo “ “ 

echo -n "ATTACH OPERATORS to a CONFIGURATION test complete... Press Return to continue” 

set a=($<) 

clear 
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echo “Running main ddb53 clo c3i unix ...” 
main ddb53 clo c3i unix 
echo “ “ 

echo -n “Press Return to continue” 

set a=($<) 

clear 



echo “Running main ddb53 clo c3i dos ...” 
echo 

main ddb53 clo c3i dos 
echo “ “ 

echo -n “Press Return to continue” 

set a=($<) 

clear 



echo “Running main ddb53 clo c3i spare ...” 
echo “ “ 

main ddb53 clo c3i spare 
echo “ “ 

echo -n “CONFIGURATION LIST OPERATOR test complete... Press Return to continue” 

set a=($<) 

clear 



echo “Running main ddb53 ell c3i unix ...” 
echo " “ 

main ddb53 ell c3i unix 
echo “ “ 

echo -n “Press Return to continue” 

set a=($<) 

clear 

echo “Running main ddb53 ell c3i dos ...” 
echo “ “ 

main ddb53 ell c3i dos 
echo “ “ 

echo -n “Press Return to continue” 

set a=($<) 

clear 



echo “Running main ddb53 ell c3i spare ...” 
main ddb53 ell c3i spare 
echo “ “ 

echo -n “CONFIGURATION LONG LIST OPERATORS test complete... Press Return to continue” 

set a=($<) 

clear 

echo “Running main ddb53 cdt c3i unix r ...” 
rm -f /n/gemini/work/dwyer/caps/proto/* 
echo “ “ 

main ddb53 cdt c3i unix r 
echo** “ 

echo -n “Examine the directory now and you’ll see the checked out subtree ...” 

set a=($<) 

clear 
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echo “Running main ddb53 cdl c3i unix w ...Dumping Tree” 
rm -f /n/gemini/work/dwyer/caps/proto/* 
echo “ “ 

main ddb53 cdt c3i unix w 
echo" “ 

echo -n “Examine the directory now and you’ll see the checked out subtree ...” 

set a=($<) 

clear 



echo “Running main ddb53 crl c3i unix ...Resetting Locks” 
main ddb53 cri c3i unix 

echo “Running main ddb53 cdt c3i dos r ...Dumping Tree” 
rm -f /n/gemini/work/dwyer/caps/proto/* 
echo “ “ 

main ddb53 cdt c3i dos r 
echo" “ 

echo -n “Examine the directory now and you’ll see the checked out subtree ...” 

set a=($<) 

clear 



echo “Running main ddb53 cdt c3i spare w ...Dumping Tree” 
rm -f /n/gemini/work/dwyer/caps/proto/* 
echo “ “ 

main ddb53 cdt c3i spare w 
echo “ “ 
echo “ “ 

echo “Examine the directory now and you’ll see the checked out subtree ...” 
echo -n “Press return to continue “ 
set a=($<) 
clear 

IT IT IT ft ff ff ff 17 if IT TT ft Tt ft ft IT XT ff ff ff it TT tt TtTt tt ft tt TTTtTt ft ft tt tt Tt tt tt IT Tt TtTt TT 77 r# TTTTTTtT 
# 

# VERSIONING STARTS HERE ... 

# 

################################################# 

echo “Running main ddb53 crl c3i unix ...Resetting Locks” 
main ddb53 crl c3i spare 

echo “Running main ddb53 cdt c3i unix w ...Dumping Tree for UPDATE” 

rm -f /n/gemini/work/dwyer/caps/proto/* 

main ddb53 cdt c3i unix w 

echo “ “ 

echo “ “ 

echo “ “ 

echo -n “CONFIGURATION DUMP TREE test complete ... Press Return to continue” 

set a=($<) 

clear 

echo “Simulating updates by TOUCHING files “ 
echo “ “ 

echo “ Running touch c3i.ps ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.ps 

echo “ “ 

echo “ Running touch c3i.user_interface.imp.psdl ...” 
echo “ “ 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.imp.psdl 



66 



echo “ “ 

echo “ Running touch c3i.user_interface.message_arrival_panel.spec.psdl ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.message_arrival_panel.spec.psdl 

echo “ “ 

echo “ Running touch c3i.user_interface_emergency_status_screen.imp.psdl ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.emergency_status_screen.imp.psdl 

echo “ “ 

echo “ “ 

echo “ “ 

echo “We have just simulated editing several operators....” 
echo *n “Press Return to continue” 
set a=($<) 
clear 

echo “Running a CONFIGURATION update now (Posting version #2 of c3i) ...” 
echo “ “ 

echo “Running main ddb53 caa c3i unix ...” 
echo “ “ 

main ddb53 caa c3i unix 
echo “ “ 
echo“ “ 
echo “ “ 

rm -f /n/gemini/work/dwyer/caps/proto/* 

echo -n “CONFIGURATION UPDATE TREE test complete ... Press Return to continue” 

set a=($<) 

clear 

echo “ “ 
echo “ “ 
echo “ “ 

echo “Show the versions of the root vobject ...” 
echo “Running ddb53 vgv c3i c3i ...” 
echo “ “ 

main ddb53 vgv c3i c3i 
echo" “ 
echo “ “ 

echo “Show the versions of the user_interface vobject ...” 
echo “ “ 

echo “Running ddb53 vgv c3i c3i.user_interface ...” 
echo" “ 

main ddb53 vgv c3i c3i.user_interface 
echo" “ 

echo “Show the versions of the emergency_status_screen vobject ...” 
echo “ “ 

echo “Running ddb53 vgv c3i c3i.user_interface.emergency_status_screen ...” 
echo “ “ 

main ddb53 vgv c3i c3i.user_interface.emergency_status_screen 

echo" “ 

echo"" 

echo “Show the version of an OPERATOR which DID NOT version ...” 
echo “ “ 

echo “Running ddb53 vgv c3i c3i.comms_interface ...” 
echo"" 

main ddb53 vgv c3i c3i.comms_interface 
echo -n “Press Return to continue” 
set a=($<) 
clear 

echo"" 
echo “ “ 

echo “Running main ddb53 vdt c3i c3i w “ 
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echo “ “ 

main ddb53 vdt c3i c3i w 
echo “Now updating modules ...” 
echo “ “ 

echo “ Running touch c3i.ps ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.ps 

echo “ “ 

echo “ Running touch c3i.user_interface.imp.psdl ...” 
echo" “ 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.imp.psdl 
echo “ “ 

echo “ Running touch c3i.user_interface.message_anival_panel.spec.psdl ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.message_arrival_panel.spec.psdl 

echo" “ 

echo “ Running touch c3i.user_interface_emergency_status_screen.imp.psdl ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.emergency_status_screen.imp.psdl 

echo “ “ 

echo " “ 

echo" “ 

echo “We have just simulated editing several operators....” 
echo" “ 
echo “ “ 

echo “Now Posting Version 3 to the database ...” 
echo “ “ 
echo " “ 

echo “Running main ddb53 vaa c3i c3i “ 
echo" “ 

main ddb53 vaa c3i c3i 

echo -n “Press Return to continue “ 

rm -f /n/gem i n i/ work/d wyer/caps/pro to/* 

set a=($<) 

clear 

echo" “ 
echo “ “ 

echo “Now check the versions of c3i in the database “ 
echo “ “ 
echo “ “ 

echo “Running main ddb53 vgv c3i c3i ...” 
echo “ “ 

main ddb53 vgv c3i c3i 
echo" “ 
echo “ “ 

echo “Show the versions of the user_interface vobject ...” 
echo" “ 

echo “Running ddb53 vgv c3i c3i.user_interface ...” 
echo “ “ 

main ddb53 vgv c3i c3i.user_interface 
echo “ “ 

echo “Show the versions of the emergency_status_screen vobject ...” 
echo “ “ 

echo “Running ddb53 vgv c3i c3i.user_interface.emergency_status_screen ...” 
echo"" 

main ddb53 vgv c3i c3i.user_interface.emergency_status_screen 
echo “ “ 
echo “ “ 

echo “Show the version of an OPERATOR which DID NOT version ...” 
echo “ “ 

echo “Running ddb53 vgv c3i c3i.comms_interface ...” 
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echo “ “ 

main ddb53 vgv c3i c3i.comms_interface 

echo -n “Show Versions (VGV) test complete ..Press Return to continue” 

set a=($<) 

clear 

echo “Running main ddb53 vud c3i c3i.user_interface file3 ...” 
echo “ “ 

main ddb53 vud c3i c3i.user_interface file3 
echo** “ 
echo “ “ 

echo “Here is the description entered to that operator ...” 
echo “ “ 

echo “Running main ddb53 vgd c3i c3i.user_interface ...” 
echo “ “ 

main ddb53 vgd c3i c3i.user_interface 
echo “ “ 
echo “ “ 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 

echo “Now let’s update an OLDER version of an operator previously stored ...” 
echo “Running main ddb53 vud c3i c3i.user_interface file4 1 ...” 
echo “ “ 

main ddb53 vud c3i c3i.user_interface file4 1 
echo “ “ 
echo “ “ 

echo “Here is the description entered to that operator ...” 
echo “ “ 

echo “Running main ddb53 vgd c3i c3i.user_interface 1 ...” 
echo “ “ 

main ddb53 vgd c3i c3i.user_interface 1 
echo “ “ 
echo “ “ 

echo -n “UPDATE VOBJECT/OPERATOR (VUD) test complete... Press Return to continue ...” 

set a=($<) 

clear 

echo “Now attach the configurations to different versions of ROOT VOBJECT ...” 
echo “Running main ddb53 cao c3i unix c3i 1 “ 
echo “ “ 

main ddb53 cao c3i unix c3i 1 

echo “Running main ddb53 cao c3i dos c3i 2 “ 

echo “ “ 

main ddb53 cao c3i dos c3i 2 

echo “Running main ddb53 cao c3i spare c3i 3 “ 

echo “ “ 

main ddb53 cao c3i spare c3i 3 
echo -n “Press Return to continue “ 
set a=($<) 
clear 

echo “One Last list to verify everythings in order ...” 
echo “ “ 

echo “Press Return to continue ...” 

set a=($<) 

clear 

echo “Running main ddb53 clo c3i unix” 
echo “ “ 
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main ddb53 clo c3i unix 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 

echo “Running main ddb53 clo c3i dos” 
echo “ “ 

main ddb53 clo c3i dos 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 

echo “Running main ddb53 clo c3i spare” 
echo “ “ 

main ddb53 clo c3i spare 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 

echo “ “ 

echo “ “ 

“ **********************************************************************” 

echo “*NAVALPOSTGRADUATESCHOOL*” 

echo “ * (T H E E N D ) *” 

echo “ * Software Engineering *” 

echo “ * Design Database *” 

echo “ * Thesis Advisor Dr. Luqi 

echo “ * By Drew Dwyer and Garry Lewis 

echo “ * Design Database vl.l WP.D.A.L.G *” 

echo ** **********************************************************************” 
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C. TEST RESULTS 



********************************************************* ************* 
echo “*NAVALPOSTGRADUATESCHOOL*” 
echo 44 * Software Engineering *” 
echo “ * Design Database *” 
echo 44 * Thesis Advisor I>r. Luqi 
echo “ * Written by: Drew Dwyer and Garry Lewis *” 

echo 44 * Design Database vl.l WP.D.A.L.G . *” 
********************************************************************** 



Press Return to begin demonstration 

Running main ddb53 pip c3i ... 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Running main ddb53 pip fishfarm ‘Drew Dwyer’ ... 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Running main ddb53 pip robot ‘Garry W. Lewis’ filel ... 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
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INSERT PROTOTYPE test complete ... Press Return to continue 



Running main ddb53 pgd robot ...returns description to screen... 



********************************************** 

********************************************** 



####### ### # ####### # 
###### 

###### 

##### # # ##### # 

##### 

##### 

# ### ####### ####### ##### 



This is a simple text file 

to test Drew and Garry’s Prototype Program. 

********************************************** 

********************************************** 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Running main ddb53 pud robot file2 ...updates description ... 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Running main ddb53 pgd robot ...returns the new description. 



********************************************** 

********************************************** 



####### ### # ####### ##### 
###### 

##### 

##### # # ##### ##### 

##### 

##### 

# ### ####### ####### ####### 



This file is used to update the 
DESCRIPTION ATTRIBUTE 
in the Design Database. 

«< FILE UPDATED SUCCESSFULLY »» 
********************************************** 
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********************************************** 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

GET/UPDATE PROTOTYPE DESCRIPTION test complete ... Press Return to continue 
Running main ddb53 prd c3i 
Tue Sep 3 11:05:42 1991 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

RETRIEVE PROTOTYPE DATE test complete ... Press Return to continue 
Running main ddb53 pul robot Larry Williamson ... 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Running main ddb53 pgl robot 
Larry Williamson 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

UPDATE/GET PROTOTYPE test complete ... Press Return to continue 
Running main ddb53 pds c3i .... 

Creation Date: Tue Sep 3 11:05:42 1991 
Leader: 

Default Config: 

<No configurations are contained in this prototypc.> 

Prototype Description follows: 

<This prototype does not contain a description> 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Press Return to continue 
Running main ddb53 pds fishfarm ... 
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Creation Date: Tue Sep 3 11:05:47 1991 



Leader: Drew Dwyer 
Default Config: 

<No configurations are contained in this prototypes 
Prototype Description follows: 

<This prototype does not contain a description> 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

Press Return to continue 

Running main ddb53 pds robot ... 

Creation Date: Tue Sep 3 11:05:50 1991 

Leader: Larry Williamson 
Default Config: 

<No configurations are contained in this prototypes 
Prototype Description follows: 



********************************************** 



####### ### # ####### ##### 
###### 

##### 

##### # # ##### ##### 

##### 

##### 

# ### ####### ####### ####### 



This file is used to update the 
DESCRIPTION ATTRIBUTE 
in the Design Database. 

«< FILE UPDATED SUCCESSFULLY »» 

********************************************** 

********************************************** 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



DUMP PROTOTYPE SUMMARY test complete ... Press Return to continue 
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Running main ddb53 pin ... 
c3i 

fish farm 
robot 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

LIST PROTOTYPE NAMES test complete ... Press Return to continue 
Running main ddb53 cic c3i unix ... 

CAPS Engineering Design Database 1 99 1 (c) WP.D.A.L.G 

Running main ddb53 cic c3i dos ‘Drew Dwyer’ ... 

CAPS Engineering Design Database 1 99 1 (c) WP.D.A.L.G 

Running main ddb53 cic c3i spare ‘Garry Lewis’ filel ... 

CAPS Engineering Design Database 1 99 1 (c) WP.D. A.L.G 

INSERT CONFIGURATION test complete... Press Return to continue 
Running main ddb53 cum c3i dos ‘Marty Shoppenheimer’ ... 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

UPDATE CONFIGURATION MANAGER test complete... Press Return to continue 

Running main ddb53 cds c3i unix ... 

Creation Date: Tue Sep 3 11:08:26 1991 

Manager: 

Version Number: NONE 
Default VOBJECT Name 

<This configuration has not been assigned a V_OBJECT> 

Configuration Description follows: 

<This configuration does not contain a description> 
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CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Press Return to continue 

Running main ddb53 cds c3i dos ... 
Creation Date: Tue Sep 3 11:08:28 1991 

Manager: Marty Shoppenheimer 
Version Number: NONE 

Default VOBJECT Name 



<This configuration has not been assigned a V_OBJECT> 
Configuration Description follows: 



<This configuration does not contain a description> 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Press Return to continue 

Running main ddb53 cds c3i spare ... 
Creation Date: Tue Sep 3 11:08:31 1991 

Manager: Garry Lewis 
Version Number: NONE 

Default VOBJECT Name 



<This configuration has not been assigned a V_OBJECT> 
Configuration Description follows: 



********************************************** 

********************************************** 



n TT “tt TttttT tttttT Tt TT TTTT TTTT TT 7T TT 
###### 

###### 

TT TTTTTT Tf TT TT TT TT TT TTTT TT 
##### 

##### 

# ### ####### ####### ##### 



This is a simple text file 

to test Drew and Garry’s Prototype Program. 

********************************************** 

********************************************** 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
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DUMP CONFIGURATION SUMMARY test complete... Press Return to continue 
Running main ddb53 cgd c3i spare ... 



********************************************** 

********************************************** 



MUM U U 

tTtttTTTtttTtt TrtfTT T f ttftTTTtTttttt Tt 

###### 

###### 

11 11 il li 11 ±i ll 11 11 11 11 II 11 

W f f fffftt # # tttttttttt tt 

tttttttttt 

tttttttttt 

# uuu uuij-uuuu uuuuuuu UMttUU 

Tf TfTT fT TT Tt Tt tt f r TT Tf Tf Tf ff ff Ff ff TT rf rf Tf Tf 



This is a simple text file 

to test Drew and Garry’s Prototype Program. 

********************************************** 

********************************************** 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Press Return to continue 

Running main ddb53 cud c3i spare file2 ... 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Press Return to continue 

Running main ddb53 cgd c3i spare ... 

********************************************** 

********************************************** 



####### tttttt tt ####### tttttttttt 
###### 

##### 

tttttttttt tt tt tttttttttt tttttttttt 

tttttttttt 

tttttttttt 

UMUUMMM UUUUMUU UUUMUUM 

TfTT Tf ff ff TT ff ff Tf Tf ff ff ff Tfff ff ff ff ff ff ff ff TfTT 



This file is used to update the 
DESCRIPTION ATTRIBUTE 
in the Design Database. 



77 



«< FILE UPDATED SUCCESSFULLY »» 

********************************************** 

********************************************** 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

CONFIGURATION DUMP SUMMARY test complete... Press Return to continue 
Running main ddbS3 cda c3i spare ... 

Tue Sep 3 11:08:31 1991 

CAPS Engineering Design Database 1991(c) WP.D.AL.G 

GET CONFIGURATION DATE test complete... Press Return to continue 
Running main ddb53 cpl c3i spare ‘This is the first Post to Sparc Log’ 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

Now check it to see that it’s posted... 

Running ddb53 egl c3i spare ... 

Tue Sep 3 11:09:50 1991 
This is the first Post to Sparc Log 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

Press Return to continue 
Add another line to the log ... 

Running main ddb53 cpl c3i spare ‘This is the second Post to Sparc Log’ 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

Show the results ... 

Running ddb53 egl c3i spare ... 

Tue Sep 3 11:09:50 1991 
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This is the first Post to Sparc Log 

Tue Sep 3 11:09:56 1991 

This is the second Post to Sparc Log 



CAPS Engineering Design Database 199 1(c) WP.D. A.L.G 

POST/GET CONFIGURATION LOG test complete... Press Return to continue 

Running main ddb53 cgm c3i dos ... 

Marty Shoppenheimer 

CAPS Engineering Design Database 199 1(c) WP.D. A.L.G 
Now we’ll change the manager to ‘Kelly Mcdowell’ 

Running main ddb53 cum c3i dos ‘Kelly Mcdowell’ ... 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Now make sure it posted... 

Running main ddb53 cgm c3i dos ... 
Kelly Mcdowell 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



GET/UPDATE CONFIGURATION MANAGER test complete... Press Return to continue 



Running main ddb53 cln c3i ... 

unix 

dos 

spare 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



LIST CONFIGURATION NAMES test complete... Press Return to continue 

We now move on to the actual loading of the ONTOS Database. 

Running main ddb53 vaa c3i c3i ... 

CHECKIN”> c3i 

CHECKIN-> c3i.comms_interface 

CHECKIN-> c3i.comms_interface.prepare_periodic_report 
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CHECKIN--> c3i.comms_interface.resolve_incoming_messages 

CHECKIN~> c3i.cx>mms_inierface.resolve_incoming_messages.decide_for_archiving 

CHECKIN~> c3i.«)mms_interface.resolveJncoming_messages.decide_for_relaying 

CHECKIN-> c3i.commsjnterface.resolve_incoming_messages.extract_tracks 

CHECKIN-> c3i.commsjnterface.resolvejncoming_jnessages.parse_input_file 

CHECKIN~> c3i.comms_interfacejesolve_outgoing_mes sages 

CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 

CHECKIN~> c3i.comms_inierfacejesolve_outgoing_messages.forward_for_translation 

CHECKIN~> c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 

CHECKIN~> c3i.comms_interface.resolve_outgoing_messages.make_routing 

CHECKIN~> c3i.comms_interface.translate_message 

CHECKIN~> c3i.comms_links 

CHECKIN~> c3i.navigation_system 

CHECKIN- -> c3i.sensor_interface 

CHECKIN-> c3i.sensorJnterface.analyze_sensor_data 

CHECKIN~> c3i.sensOT_interface.nonnalize_sensor_informaUon 

CHECKIN~> c3i.se nsor_interface.prepare_sensor_track 

CHECKIN~> c3i.sensors 

CHECKIN~> c3 i . track_da tabase_m anager 

CHECKIN~> c3i.track_database_manager.monitor_database 

CHECKIN~> c3i.track_database_manager.update_tracks 

CHECKIN~> c3i.track_database_manager.update_tracks.add_comms_tracks 

CHECKIN~> c3i.track_database_manager.update_tracks.add_sensor_track 

CHECKIN~> c3i.track_database_manager.update_traeks.add_user_track 

CHECKIN~> c3i.track_daiabase_manager.update_tracks.delete_the_track 

CHECKIN-> c3i.track_database_manager.update_tracks.filter_comms_tracks 

CHECKIN~> c3i.track_daiabase_manager.update_tracks.filter_sensor__tracks 

CHECKIN— > c3i.track_database_manager.update_tracks.monitor_ownship_position 

CHECKIN~> c3i.track_database_manager.update__tracks.update_the_track 

CHECKIN~> c3i.user_interface 

CHECKIN-> c3i.user_interface.display _graphic_tracks 

CHECKIN~> c3i.user_interface.display_tracks 

CHECKIN~> c3i.user_interface.emergency_status_screen 

CHECKIN~> c3i.user_interface.get_modification_data 

CHECKIN~> c3i.userjnterface.get_user_inputs 

CHECKIN~> c3i.user_interface.intelligence_report_panel 

CHECKIN~> c3i.user_interface.manage_user_interface 

CHECKIN- -> c3i.userjnterface.message_arrival 

CHECKIN~> c3i.userjnterface.message_arrival_panel 

CHECKIN~> c3i.user_interface.message_editor 

CHECKIN--> c3i.userJnterfacej-esolution_notice_panel 

CHECKIN-> c3i.user_interface.status_screen 

CHECKIN-> c3i.weapons_interface 

CHECKIN-> c3i.weapons_systems 
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Add c3i test complete... Now we’ll add a different Prototype 
called fishfarm. Press Return to continue... 

Running main ddb53 vaa fishfarm fishfarm ... 

CHECKIN-> fishfarm 
CHECKIN~> fishfarm .ControLfeeding 
CHECKIN~> fishfarm.Control_feeding_times 
CHECKIN~> fishfarm. Determine_actual_inlet_valve_seuing 
CHECKIN-> fishfarm.Determine_actuaLoutlet_valve_setting 
CHECKIN-> fishfarm .H20_sensor 

CHECKIN~> fishfarm.Determine_desiredJnlet_valve_setting_NH3 
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CHECKIN"> fishfarm.Determine_desired_inlct_va]ve_seuing_02 

CHECKIN— > fishfann.Display_systcm_siatus 

CHECKIN— > fishfarm.Inlet_valve 

CHECKIN-> fishfarm ,NH3_sensor 

CHECKIN— > fishfarm.Outlet_vaive 

CHECKIN-> fishfarm.ffconsole 

CHECKIN-> fishfarm.mytime 

CHECKIN-> fishfarm.o2_sensor 
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Add fishfarm test complete... Now we’ll add a different Prototype 
called robot. Press Return to continue... 

Running main ddb53 vaa robot robot ... 

CHECKIN— > robot 
CHECKIN-> robot. Accelerometer 
CHECKIN-> roboLCalculate_Position 
CHECKIN-> robotFire_Thrusters 
CHECKIN-> robotGet_Keys 
CHECKIN-> roboLUpdate_Acceleration 
CHECKIN-> robotUpdate_Display 
CHECKIN“> roboLUpdate_Thrust_Req 
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Add robot test complete ... Press return to continue 



Now show the PLL command to reflect that each Prototype has a default version 
Running ddb53 pll ... 

Name: c3i Default Config: spare Version: 1 
Name: fishfarm Default Config: NONE Version: 1 
Name: robot Default Config: NONE Version: 1 
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LOAD V_OBJECT and SUBTREE test complete... Press Return to continue 

Running main ddb53 vlo c3i c3i ... 

Operator: c3i 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.prepare_periodic_report 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3ixomms_interfacejesolve_incoming_messages.decide_for_relaying 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3ixomms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.comms_interfacejesolve_mcoming_messages.parse_input_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incommg_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.translate_message 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_links 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.navigation_system 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.normalize_sensorjnformation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensors 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.monitor_database 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .track_database_manager.update_tracks.add_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_user_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.update_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.display_graphic_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: c3 i .user_interface.display_tracks 
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Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.emergency_status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userJnterface.get_modification_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.user_interface.get_user_inputs 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.intelligence_report_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.manage_user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_arrival 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.message_arrival_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userJnterface.message_editor 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userJnterface.resolution_notice_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_sy stems 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press return to continue ... 
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Running main ddb53 vil c3i c3i ... 

Operator: comms_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: commsjinks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: navigation_system 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: sensorjnterface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: sensors 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: track_dalabase_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: userjnterface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: weaponsjnterface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: weapons_systems 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 

Running main ddb53 vlo c3i c3i.comms_interface ... 

Operator: c3i.comms_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.commsJnterface.prepare_periodic_report 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacexesolve_incoming_messages.decide_for_archiving 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.commsJnterface.resolve_incoming_messages.decide_for_relaying 
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Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



Operator: c3i.commsJnterface.resolve_incoming_messages.extract_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages.parseJnput_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.commsJnterfacejxsolvejxitgoing_messages.convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.commsJnterface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.commsJnterface.resolve_outgoing_messages.make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3 i .com m s_interface. translate_m es sage 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 

Running main ddb53 vll c3i c3i.comms_interface ... 

Operator: prepare_periodic_report 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator resolve_incoming_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: resolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: translate_message 
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Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue 

Running main ddb53 vlo c3i c3i.comms_interface.resolve_outgoing_messages ... 

Operator: c3i.comms_interfacejesolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 

Running main ddb53 vll c3i c3i.comms_interface.resolve_outgoing_messages ... 

Operator: convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: forward Jbr_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



87 



V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue 
Running main ddb53 CAO c3i unix c3i ... 
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Running main ddb53 cao c3i dos c3i.user ^interface 
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Running main ddb53 cao c3i spare c3i.comms_interface.resolve_outgoing_messages 
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ATTACH OPERATORS to a CONFIGURATION test complete... Press Return to continue 

Running main ddb53 clo c3i unix ... 

Operator: c3i 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.prepare_periodic_report 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.commsJnterfacejesolve_incoming_messages.decide_for_archiving 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.comms_interfacejesolve_incommg_messages.parseJnput_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
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Locktime is: Wed Dec 31 16:00:00 1969 



Operator: c3i.comms_interfacejesolve_outgoing_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacej*esolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.translate_message 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_links 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.navigation_system 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.normalize_sensor_information 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensors 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.monitor_database 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator c3i.track_database_manager.update_tracks.add_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_user_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.track_database_managerupdate_tracks.filter_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_managerupdate_tracks.monitor_ownship_position 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_managerupdate_tracks.update_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.userjnterface.display„graphic_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.display_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.emergency_status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.userJnterface.get_modification_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.get_user_inputs 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.userJnterface.intelligence_report_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



90 



Operator: c3i.user_intcrface.manage_user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_arrival 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_intcrface.message_arrival_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_editor 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_systems 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Press Return to continue 

Running main ddb53 clo c3i dos ... 

Operator: c3i.user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.display _graphic_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.user_interface.display_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.emergency_status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.useMnterface.get_modification_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.get_user_inputs 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.intelligence_report_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.manage_user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator. c3i.user_interface.message_arrival 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_arrival_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_editor 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue 

Running main ddb53 clo c3i spare ... 

Operator: c3i.commsJnterface.resolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.cornms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgomg_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacej*esolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.comms_interface.resolve_outgoing_messages.make_rouling 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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CONFIGURATION LIST OPERATOR test complete... Press Return to continue 

Running main ddb53 ell c3i unix ... 

Operator: comms_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: comms_links 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: navigation_system 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: sensor_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: sensors 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: track_database_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: weapons_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: weapons_systems 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue 
Running main ddb53 ell c3i dos ... 
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Operator: display^graphic-jracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: display_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: emergency_status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: get_modification_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: get_user_inputs 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: intelligence_report _panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: manage_user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: message_arrival 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: message_arrival_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: message_editor 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: resolution_notice_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue 

Running main ddb53 ell c3i spare ... 
Operator: convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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CONFIGURATION LONG LIST OPERATORS test complete... Press Return to continue 

Running main ddb53 cdt c3i unix r ... 

NODENAME — > c3i 
Version: 1 

NODENAME — > prepare_periodic_report 
Version: 1 

NODENAME — > decide_for_archiving 
Version: 1 

NODENAME — > decide_for_relaying 
Version: 1 

NODENAME — > extract_tracks 
Version: 1 

NODENAME — > parse_input_file 
Version: 1 

NODENAME — > resolve_incoming_messages 
Version: 1 

NODENAME — > convert_to_text_file 
Version: 1 

NODENAME — > forward_for_translation 
Version: 1 

NODENAME — > forw ard_for_tran sm iss ion 
Version: 1 

NODENAME — > make_routing 
Version: 1 

NODENAME — > resol ve_outgoin^messages 
Version: 1 

NODENAME — > translate_message 
Version: 1 
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NODENAME — > comms_interface 
Version: 1 



NODENAME - 
Version: 1 


-> comms_links 


NODENAME - 
Version: 1 


-> navigation_system 


NODENAME - 
Version: 1 


-> analyze_sensor_data 


NODENAME - 
Version: 1 


~> normalize_sensor_inforrnation 


NODENAME - 
Version: 1 


-> prepare_sensor_track 


NODENAME - 
Version: 1 


-> sensor_inlerface 


NODENAME - 
Version: 1 


~> sensors 


NODENAME - 
Version: 1 


--> monitor_database 


NODENAME - 
Version: 1 


~> add_comms_tracks 


NODENAME - 
Version: 1 


~> add_sensor_track 


NODENAME - 
Version: 1 


--> add_user_track 


NODENAME - 
Version: 1 


-> delete_the_track 


NODENAME - 
Version: 1 


-> filter_comms_tracks 


NODENAME - 
Version: 1 


--> f il ter_sensor_tracks 


NODENAME - 
Version: 1 


— > monitor_ownship_position 


NODENAME - 
Version: 1 


— > update_the_track 


NODENAME - 
Version: 1 


— > update_tracks 


NODENAME - 
Version: 1 


~> track_database_manager 


NODENAME - 
Version: 1 


-> display_graphic_tracks 


NODENAME - 


-> display_tracks 
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Version: 1 



NODENAME — > emergency_status_screen 
Version: 1 

NODENAME — > get_modification_data 
Version: 1 

NODENAME — > get_user_inputs 
Version: 1 

NODENAME — > inteUigence_report_panel 
Version: 1 

NODENAME — > manage_user_interface 
Version: 1 

NODENAME — > message_arrival 
Version: 1 

NODENAME — - > message_arrival_panel 
Version: 1 

NODENAME — > message_editor 
Version: 1 

NODENAME — > resol ution_notice_panel 
Version: 1 

NODENAME — > status_screen 
Version: 1 

NODENAME — > userjnterface 
Version: 1 

NODENAME — > weapons_interface 
Version: 1 

NODENAME — > weapon s_sy stems 
Version: 1 
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Examine the directory now and you’ll see the checked out subtree . 

Running main ddb53 cdt c3i unix w ...Dumping Tree 

NODENAME— > c3i 
Version: 1 

setworker ~> to dwyer 

NODENAME — > prepare_periodic_report 

Version: 1 

setworker ~> to dwyer 
NODENAME — > decide_for_archiving 
Version: 1 



setworker --> to dwyer 
NODENAME — > decide_for_relaying 
Version: 1 

setworker — > to dwyer 
NODENAME — > extract_tracks 
Version: 1 

setworker — > to dwyer 
NODENAME — > parse_input_file 
Version: 1 

setworker — > to dwyer 

NODENAME — > resolve_incoming_mes sages 
Version: 1 

setworker --> to dwyer 
NODENAME — > convert_to_text_file 
Version: 1 

setworker ~> to dwyer 

NODENAME — > forward_for_tran station 

Version: 1 

setworker — > to dwyer 

NODENAME — > forward Jor_transmission 

Version: 1 

setworker ~> to dwyer 
NODENAME — > make_routing 
Version: 1 

setworker ~> to dwyer 

NODENAME — > resol ve_outgoing_messages 
Version: 1 

setworker — > to dwyer 
NODENAME — > translate_message 
Version: 1 

setworker ~> to dwyer 
NODENAME — > comms_interface 
Version: 1 

setworker — > to dwyer 
NODENAME — > commsjinks 
Version: 1 

setworker — > to dwyer 
NODENAME — > navigation_system 
Version: 1 

setworker — > to dwyer 
NODENAME — > analyze_sensor_data 
Version: 1 

setworker — > to dwyer 

NODENAME — > normalize_sensor_information 
Version: 1 
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setworker — > to dwyer 
NODENAME — > prepare_sensor_track 
Version: 1 

setworker --> to dwyer 
NODENAME — > sensorjnterface 
Version: 1 

setworker — > to dwyer 
NODENAME — > sensors 
Version: 1 

setworker ~> to dwyer 
NODENAME — > monitor_database 
Version: 1 

setworker — : > to dwyer 
NODENAME — > add_comms_tracks 
Version: 1 

setworker — > to dwyer 
NODENAME — > add_sensor_track 
Version: 1 

setworker --> to dwyer 
NODENAME — > add_user_track 
Version: 1 

setworker -> to dwyer 
NODENAME — > delete_the_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > filter_comms_tracks 
Version: 1 

setworker — > to dwyer 
NODENAME — > filter_sensor_tracks 
Version: 1 

setworker — > to dwyer 

NODENAME — > monitor_ownship_position 
Version: 1 

setworker — > to dwyer 
NODENAME — > update_the_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > update_tracks 
Version: 1 

setworker ~> to dwyer 

NODENAME — > track_database_manager 

Version: 1 

setworker — > to dwyer 

NODENAME — > display_graphic_tracks 

Version: 1 

setworker ~> to dwyer 
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NODENAME — > display_tracks 
Version: 1 

setworker --> to dwyer 

NODENAME — > emergency_status_screen 

Version: 1 

setworker — > to dwyer 
NODENAME — > get_modification_data 
Version: 1 

setworker — > to dwyer 
NODENAME — > get_user Jnputs 
Version: 1 

setworker — > to dwyer 

NODENAME — > intelligence_report_panel 

Version: 1 

setworker — > to dwyer 

NODENAME — > manage_user_interface 

Version: 1 

setworker — > to dwyer 
NODENAME — > message_arrival 
Version: 1 

setworker — > to dwyer 
NODENAME — > message_arrival_panel 
Version: 1 

setworker — > to dwyer 
NODENAME — > message_editor 
Version: 1 

setworker --> to dwyer 

NODENAME — > resolution_notice_panel 

Version: 1 

setworker ~> to dwyer 
NODENAME — > status_screen 
Version: 1 

setworker --> to dwyer 
NODENAME — > user_interface 
Version: 1 

setworker ~> to dwyer 
NODENAME — > weapons_interface 
Version: 1 

setworker — > to dwyer 
NODENAME — > weapons_systems 
Version: 1 

setworker — > to dwyer 
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Running main ddb53 crl c3i unix ...Resetting Locks 
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Examine the directory now and you’ll see the checked out subtree 

Running main ddb53 cdt c3i dos r ...Dumping Tree 

NODENAME — > userjnterface 
Version: 1 

NODENAME — > display_graphic_tracks 
Version: 1 

NODENAME — > display_tracks 
Version: 1 

NODENAME — > emergency_status_screen 
Version: 1 

NODENAME — > get_modification_data 
Version: 1 

NODENAME — > get_user_inputs 
Version: 1 

NODENAME — > intelligence_report_panel 
Version: 1 

NODENAME — > manage_user_interface 
Version: 1 

NODENAME — > message_arrival 
Version: 1 

NODENAME — > message_arrival_panel 
Version: 1 

NODENAME — > message_editor 
Version: 1 

NODENAME — > resolution_notice_panel 
Version: 1 

NODENAME — > status_screen 
Version: 1 
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Examine the directory now and you’ll see the checked out subtree 
Running main ddb53 cdt c3i spare w ...Dumping Tree 
NODENAME — > resolve_outgoing_messages 
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Version: 1 

setworker ~> to dwyer 
NODENAME — > convert_to_tcxt_file 
Version: 1 

setworker ~> to dwyer 

NODENAME — > forward_for_translation 

Version: 1 

setworker — > to dwyer 

NODENAME — > forward_for_transmission 

Version: 1 

setworker — > to dwyer 
NODENAME — > make_routing 
Version: 1 

setworker ~> to dwyer 
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Running main ddb53 crl c3i unix ..Resetting Locks 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Examine the directory now and you’ll see the checked out subtree ... 
Press return to continue 

Running main ddb53 cdt c3i unix w ...Dumping Tree for UPDATE 
NODENAME — > c3i 
Version: 1 

setworker — > to dwyer 

NODENAME — > prepare_periodic_report 

Version: 1 

setworker — > to dwyer 
NODENAME — > decide_for_archiving 
Version: 1 

setworker — > to dwyer 
NODENAME — > decide_for_relaying 
Version: 1 

setworker — > to dwyer 
NODENAME — > extract_tracks 
Version: 1 

setworker -> to dwyer 
NODENAME — > parse_input_file 
Version: 1 

setworker — > to dwyer 

NODENAME — > resol ve_incoming_messages 
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Version: 1 



setworker — > to dwyer 
NODENAME — > convert_to_text_file 
Version: 1 

setworker ~> to dwyer 

NODENAME — > forward_for_translation 

Version: 1 

setworker — > to dwyer 

NODENAME — > forward_fc» , _transmission 

Version: 1 

setworker ~> to dwyer 
NODENAME — > make_routing 
Version: 1 

setworker — > to dwyer 

NODENAME — > resolve_outgoing_messages 
Version: 1 

setworker — > to dwyer 
NODENAME — > translate_message 
Version: 1 

setworker — > to dwyer 
NODENAME — > comms_interface 
Version: 1 

setworker — > to dwyer 
NODENAME — > com ms_l inks 
Version: 1 

setworker — > to dwyer 
NODENAME ---> navigation_system 
Version: 1 

setworker — > to dwyer 
NODENAME — > analyze_sensor_data 
Version: 1 

setworker ~> to dwyer 

NODENAME — > normal ize_sensor_in formation 
Version: 1 

setworker ~> to dwyer 
NODENAME — > prepare_sensor_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > sensorjnterface 
Version: 1 

setworker --> to dwyer 
NODENAME — > sensors 
Version: 1 

setworker ~> to dwyer 
NODENAME — > monitor_database 
Version: 1 
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setworker --> to dwyer 
NODENAME — > add_comms_tracks 
Version: 1 

setworker — > to dwyer 
NODENAME — > add_sensor_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > add_user_track 
Version: 1 

setworker ~> to dwyer 
NODENAME — > delete_the_track 
Version: 1 

setworker -> to dwyer 
NODENAME — > fiIter_cornms_tracks 
Vision: 1 

setworker — > to dwyer 
NODENAME — > filter_sensor_tracks 
Version: 1 

setworker — > to dwyer 

NODENAME — > monitor_ownship_position 
Version: 1 

setworker ~> to dwyer 
NODENAME — > update_the_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > update_tracks 
Version: 1 

setworker — > to dwyer 

NODENAME — > track_database_manager 

Version: 1 

setworker — > to dwyer 
NODENAME — > display_graphic_tracks 
Version: 1 

setworker ~> to dwyer 
NODENAME — > display_tracks 
Version: 1 

setworker — > to dwyer 

NODENAME — > emergency _status_screen 

Version: 1 

setworker ~> to dwyer 
NODENAME — > get_modification_data 
Version: 1 

setworker — > to dwyer 
NODENAME — > get_user_inputs 
Version: 1 
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setworker --> to dwyer 

NODENAME — > intelligence_report_panel 

Version: 1 

setworker — : > to dwyer 

NODENAME — > manage_user_interface 

Version: 1 

setworker ~> to dwyer 
NODENAME — > message_arrival 
Version: 1 

setworker — > to dwyer 
NODENAME — > message_arrival_panel 
Version: 1 

setworker -> to dwyer 
NODENAME — > message_editor 
Version: 1 

setworker ~> to dwyer 

NODENAME — > resolution_notice_panel 

Version: 1 

setworker --> to dwyer 
NODENAME — > status_screen 
Version: 1 

setworker -> to dwyer 
NODENAME — > user_interface 
Version: 1 

setworker — > to dwyer 
NODENAME — > weapon s_interface 
Version: 1 

setworker --> to dwyer 
NODENAME — > weapons_systems 
Version: 1 

setworker — > to dwyer 
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CONFIGURATION DUMP TREE test complete ... Press Return to continue 
Simulating updates by TOUCHING files 
Running touch c3i.ps ... 

Running touch c3i.user_interface.imp.psdl ... 

Running touch c3i.user_interface.message_arrival_panel.spec.psdl ... 
Running touch c3i.user_interface_emergency_status_screen.imp.psdl ... 
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We have just simulated editing several operators.... 

Press Return to continue 

Running a CONFIGURATION update now (Posting version #2 of c3i) ... 

Running main ddb53 caa c3i unix ... 

CHECKIN— > c3i 

CHECKIN-> c3i.comms_interface 

CHECKIN-> c3i.comms_interface.prepare_periodic_report 

CHECKIN— > c3i.comms_interface.resolve_incoming_messages 

CHECKIN-> c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 

CHECKIN-> c3i.comms_interface.resolvejncoming_messages.decide_for_relaying 

CHECKIN-> c3i.comms_interface.resolve_incoming_messages.extract_tracks 

CHECKIN-> c3i.comms_interface.resolve_incoming_messages.parse_input_file 

CHECKIN-> c3i.comms_interface.resolve_outgoing_messages 

CHECKIN-> c3i.commsJnterface.resolve_outgoing_messages.convert_to_text_file 

CHECKIN-> c3i.comms_interfacejesolve_outgoing_messages.forward_for_translation 

CHECKIN-> c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 

CHECKIN-> c3i.commsJnterface.resolve_outgoing_messages.make_routing 

CHECKIN-> c3i.comms_interface.translate_message 

CHECKIN -> c3i.comms Jinks 

CHECKIN-> c3i.navigation_system 

CHECKIN-> c3i.sensor_interface 

CHECKIN-> c3i.se ns or_interface.analyze_sensor_data 

CHECKIN— > c3i.sensor_interface.normalize_sensor_information 

CHECKIN-> c3i.se ns or_interface.prepare_sensor_track 

CHECKTN-> c3i.sensors 

CHECKIN-> c3i.track_database_manager 

CHECKIN-> c3i.track_database_manager.monitor_database 

CHECKIN-> c3i.track_database_manager.update_tracks 

CHECKIN-> c3i.track_database_manager.update_tracks.add_comms_tracks 

CHECKIN-> c3i.track_database_manager.update_tracks.add_sensor_track 

CH EC KIN -> c3 i. track_database_manager.update_tracks.add_u ser_track 

CHECKIN-> c3i.track_database_manager.update_tracks.delete_the_track 

CHECKIN-> c3i.track_database_manager.update_tracks.filter_comms_tracks 

CHECKIN-> c3i.track_database_manager.update_tracks.filter_sensor_tracks 

CHECKIN-> c3i.track_database_manager.update_tracks.monitor_ownship_position 

CHECKIN-> c3i.track_database_manager.update_tracks.update_the_track 

CHECKIN-> c3i.user_interface 

CHECKIN-> c3i.user_interface.display_graphic_tracks 

CHECKIN-> c3i.user_interface.display_tracks 

CHECKIN-> c3i.user_interface.emergency_status_screen 

CHECKIN-> c3i.user_interface.get_modification_data 

CHECKIN-> c3i.user_interface.get_user_inputs 

CHECKIN-> c3i.user_interface.intelligence_report_panel 

CHECKIN-> c3i.user_interface.manage_user_interface 

CHECKIN-> c3i.user_interface.message_arrival 

CHECKIN-> c3i.user_interface.message_arrival_panel 

CHECKIN--> c3i.user_interface.message_editor 

CHECKIN-> c3i.user_interface.resolution_notice_panel 

CHECKIN— > c3i.user_interface.status_screen 

CHECKIN-> c3i.weapons_interface 

CHECKIN-> c3i.weapons_systems 
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CONFIGURATION UPDATE TREE test complete ... Press Return to continue 



Show the versions of the root vobject ... 

Running ddb53 vgv c3i c3i ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

2 
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Show the versions of the userjnterface vobject ... 

Running ddb53 vgv c3i c3i.user_interface ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

2 
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Show the versions of the emergency_status_screen vobject ... 

Running ddb53 vgv c3i c3i.user_interface.emergency_status_screen ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

2 
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Show the version of an OPERATOR which DID NOT version ... 
Running ddb53 vgv c3i c3i.comms_interface ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 
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Press Return to continue 



Running main ddb53 vdt c3i c3i w 

NODENAME — > c3i 
Version: 2 

setworker --> to dwyer 

NODENAME — > prepare_periodic_report 

Version: 1 

setworker -> to dwyer 
NODENAME — > decide_for_archiving 
Version: 1 

setworker ~> to dwyer 
NODENAME — > decide_for_relaying 
Version: 1 

setworker ~> to dwyer 
NODENAME — > extract_tracks 
Version: 1 

setworker — > to dwyer 
NODENAME — > parse_input_file 
Version: 1 

setworker — > to dwyer 

NODENAME — > resolve_incoming_messages 
Version: 1 

setworker ~> to dwyer 
NODENAME — > convert_to_text_file 
Version: 1 

setworker — > to dwyer 

NODENAME — > forward_for_translation 

Version: 1 

setworker — > to dwyer 

NODENAME — > forward_for_tran sm ission 

Version: 1 

setworker — > to dwyer 
NODENAME — > make_routing 
Version: 1 

setworker --> to dwyer 

NODENAME — > resolve_outgoing_messages 
Version: 1 

setworker — > to dwyer 
NODENAME — > translate_message 
Version: 1 

setworker --> to dwyer 
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NODENAME — > cornms_interface 
Version: 1 

setworker — > to dwyer 
NODENAME — > comms_links 
Vision: 1 

setworker — > to dwyer 
NODENAME — > navigation__system 
Version: 1 

setworker — > to dwyer 
NODENAME — > analyze_sensor_data 
Version: 1 

setworker — > to dwyer 

NODENAME — > normaIize_sensor_information 
Version: 1 

setworker — > to dwyer 
NODENAME — > prepare_sensor_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > sensor_interface 
Version: 1 

setworker — > to dwyer 
NODENAME — > sensors 
Version: 1 



setworker --> to dwyer 
NODENAME — > monitor_database 
Version: 1 

setworker ~> to dwyer 
NODENAME — > add_com m s_trac ks 
Version: 1 

setworker — > to dwyer 
NODENAME — > add_sensor_track 
Version: 1 

setworker ~> to dwyer 
NODENAME — > add_user_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > delete_the_track 
Version: 1 

setworker — > to dwyer 
NODENAME — > fdter_comms_tracks 
Version: 1 

setworker — > to dwyer 
NODENAME — > filter_sensor_tracks 
Version: 1 

setworker — > to dwyer 
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NODENAME — > monilor_ownship_position 
Version: 1 

setworker — > to dwyer 
NODENAME — > update_the_track 
Version: 1 

setworker ~> to dwyer 
NODENAME — > update_tracks 
Version: 1 

setworker — > to dwyer 

NODENAME — > track_daiabase_manager 

Version: 1 

setworker — > to dwyer 

NODENAME — > display_graphic_tracks 

Version: 1 

setworker ~ > to dwyer 
NODENAME — > display_tracks 
Version: 1 

setworker — > to dwyer 

NODENAME — > emergency_status_screen 

Version: 2 

setworker — : > to dwyer 
NODENAME — > get_modification_data 
Version: 1 

setworker --> to dwyer 
NODENAME — > get_user_inputs 
Version: 1 

setworker ~> to dwyer 

NODENAME — > intelligence_report_panel 

Version: 1 

setworker — > to dwyer 

NODENAME — > manage_user_interface 

Version: 1 

setworker — > to dwyer 
NODENAME — > message_arrival 
Version: 1 

setworker — > to dwyer 
NODENAME — > message_arrival_panel 
Version: 2 

setworker ~> to dwyer 
NODENAME — > message_editor 
Version: 1 

setworker — > to dwyer 

NODENAME — > resolution_notice_panel 

Version: 1 

setworker ~> to dwyer 
NODENAME — > statu s_screen 
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Version: 1 



setworker ~> to dwyer 
NODENAME — > user_incerface 
Version: 2 

setworker ~> to dwyer 
NODENAME — > weapons_interface 
Version: 1 

setworker — > to dwyer 
NODENAME — > weapons_systems 
Version: 1 

setworker — > to dwyer 
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Now updating modules ... 

Running touch c3i.ps ... 

Running touch c3i.user_interface.imp.psdl ... 



Running touch c3i.user_interface.message_arrival_panel.spec.psdl ... 
Running touch c3i.user_interface_emergency_status_screen.imp.psdl ... 



We have just simulated editing several operators.... 



Now Posting Version 3 to the database ... 



Running main ddb53 vaa c3i c3i 
CHECKIN— > c3i 

CHECKIN~> c3i.comms_interface 

CHECKIN-> c3i.comms_interface.prepare_periodic_report 

CHECKIN-> c3i.comms_interface.resolve_incoming_messages 

CHECKIN-> c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 

CHECKIN~> c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 

CHECKIN~> c3i.comms_interface.resolve_incoming_messages.extract_tracks 

CHECKIN~> c3i.comms_interface.resolve_incoming_messages.parse_input_file 

CHECKIN~> c3i.comms_interface.resolve_outgoing_messages 

CHECKIN~> c3i.comms_interfacej*esolve_outgoing_messages.convert_to_text_file 

CHECKIN~> c3i.comms_interfacej*esolve_outgoing_messages.forward_for_translation 

CHECKIN-> c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 

CHECKIN-> c3i.comms_interfacej'esolve_outgoing_messages.make_routing 

CHECKIN~> c3i.comms_interface.translate_message 

CHECKIN-> c3i.comms_links 

CHECKIN~> c3i.navigation_system 

CHECKIN~> c3i.sensor_interface 

CHECKIN-> c3i.sensor_interface.analyze_sensor_data 

CHECKIN -> c3i.sensor_interface.normalize_sensor_information 

CHECKIN~> c3i.se nsor_interface.prepare_sensor_track 
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CHECKlN--> c3i.sensors 

CHECKED— > c3i.track_database_manager 

CHECKIN-> c3 i.track_database_manager.monitor_database 

CHECKIN-> c3i.track_database_manager.update_tracks 

CHECKIN--> c3i.track_database_manager.update_tracks.add_comms_tracks 

CHECKIN-> c3i.track_daLabase_manager.update_tracks.add_sensor_track 

CHECKIN-> c3 i. track_database_m anager. update_tracks ,add_user_track 

CHECKIN-> c3i.track_database_manager.update_tracks.delete_the_track 

CHECKIN-> c3i.track_database_manager.update_tracks.filter_comms_tracks 

CHECKIN-> c3i.track_database_manager.update_tracks.filter_sensor_tracks 

CHECKIN-> c3i.track_database_manager.update_tracks.monitor_ownship_position 

CHECKIN--> c3i.track_database_manager.update_tracks.update_the_track 

CHECKIN-> c3i.user_interface 

CHECKIN-> c3i.user_interface.display _graphic_tracks 

CHECKIN--> c3i.user_interface.display_tracks 

CHECKIN“> c3i.user_interface.emergency_status_screen 

CHECKIN“> c3i.user_inierface.get_modification_data 

CHECKIN--> c3i.user_interface.get_user_inputs 

CHECKIN— > c3i.user_interface.intelligence_report_panel 

CHECKIN-> c3 i. user_interface .m anage_user_i nterface 

CHECKIN— > c3i.user_interface.message_arrival 

CHECKIN“> c3i.user_interface.message_arrival_panel 

CHECKIN-> c3i.user_interface.message_editor 

CHECKIN— > c3i.user_interface.resolution_notice_panel 

CHECKIN-> c3i.user_interface.status_screen 

CHECKIN-> c3i.weapons_interface 

CHECKIN-> c3i.weapons_systems 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Press Return to continue 



Now check the versions of c3i in the database 



Running main ddb53 vgv c3i c3i ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

2 

3 
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Show the versions of the user_interface vobject ... 

Running ddb53 vgv c3i c3i.user_interface ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

2 
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Show the versions of the emergency_stalus_screen vobject ... 

Running ddb53 vgv c3i c3i.user_interface.emergency_status_screen ... 
THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

2 

3 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Show the version of an OPERATOR which DID NOT version ... 
Running ddb53 vgv c3i c3i.comms_interface ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

CAPS Engineering Design Database 1 99 1 (c) WP.D. A.L.G 

Show Versions (VGV) test complete ...Press Return to continue 
Running main ddb53 vud c3i c3i.user_interface file3 ... 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 



Here is the description entered to that operator ... 
Running main ddb53 vgd c3i c3i.user_interface ... 



************************************************************** 

************************************************************** 



# # ####### ###### # ####### ##### ####### ##### 
############# 

########### 

# # # # ###### # ##### # # ##### 
############ 
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############## 
u Han a an nnmw hmmmumm uuumu # u&uuu 

jT n tf tt rt tt ff ff fr tittTTTttt ft tt rr tt tt trftnnrrnn tttt it it tt tt TTtrTtTTTT 

##### 
rr rr rr tt tt 

####### 

#### 

« ##### # 

TT TT ff ff ft IT Tf 

### 

##### 

Jj JJ JJ JJ JJ JJ JJ JJ ^ 1J 
ff ff ff Tf ff ff ffff+f TT 



This file is a test file used 
to update the VOBJECT 
DESCRIPTION ATTRIBUTE. 

«« UPDATED SUCCESSFULLY »» 

************************************************************** 

************************************************************** 
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Press Return to continue ... 

Now let’s update an OLDER version of an operator previously stored ... 
Running main ddb53 vud c3i c3i.user_interface file4 1 ... 
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Here is the description entered to that operator ... 

Running main ddb53 vgd c3i c3i.user_interface 1 ... 

************************************************************ 

************************************************************ 



# # ####### ###### # ####### ##### ####### # 
############# 

############ 

# # # # ###### # ##### # # # 

############ 



############# 



# mmm ttmtttmt ##### mmm ##### # ##### 



u u tut o 

Tt Tt Tt Tt ft 
#### ### 
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#### 
u UMUMM U 

ft TttttTttjj jT 

### 

##### 

UU Utf ##### u 

tttTtTTT TttTjTTTTT tT 



This file is a test file used 
to update the VOBJECT 
DESCRIPTION ATTRIBUTE. 

«« UPDATED SUCCESSFULLY »» 

************************************************************ 

************************************************************ 
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UPDATE VOBJECT/OPERATOR (VUD) test complete... Press Return to continue ... 

Now attach the configurations to different versions of ROOT VOBJECT ... 

Running main ddb53 cao c3i unix c3i 1 

CAPS Engineering Design Database 1 99 1 (c) WP.D. A.L.G 
Running main ddb53 cao c3i dos c3i 2 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
Running main ddb53 cao c3i spare c3i 3 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

Press Return to continue 

One Last list to verify everythings in order ... 

Press Return to continue ... 

Running main ddb53 clo c3i unix 

Operator: c3i 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.prepare_periodic_report 
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Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator. c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_outgoing_messages.make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.translate_message 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfa ce 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_links 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.navigation_system 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 
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Locktime is: Wed Dec 31 16:00:00 1969 



Operator. c3i.sensor_interface.normalize_sensor_information 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.sensors 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.track_database_manager.monitor_database 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_user_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.update_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.track_database_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.userjnterface.display_graphic_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.display_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.emergency_status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.userJnterface.get_modification_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.get_user_inputs 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userJnterface.intelligence_report_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.manage_user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user Jnterface.message_arrival 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.message_arrival_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_editor 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userJnterface.resolution_notice_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_systems 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 

Running main ddb53 clo c3i dos 

Operator c3i 
Version: 2 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.comms_interface.prepare_periodic_report 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages.decide_for_relaying 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages.extract_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .com ms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_outgoing_messages.make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.com ms_interface jesol ve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.com ms_interface.translate_mes sage 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.comms_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator. c3i.comms_links 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.navigation_system 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.sensor_interface.analyze_sensor_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.normalize_sensor_information 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .sensor_interface.prepare_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i. sensors 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.monitor_database 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



Operator: c3i.track_database_manager.update_tracks.add_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_user_track 
Version: 1 
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Locktime is: Wed Dec 31 16:00:00 1969 



Operator c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .track_database_manager.update_tracks.update_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.display_graphic_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.display_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.emergency_status_screen 
Version: 2 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.get_modification_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.get_user_inputs 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.user_interface.intelligence_report_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .user _i nterface.manage_user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_arrival 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



121 



Operator: c3i.user_interface.message_arrival_panel 
Version: 2 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.user_interface.message_editor 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface 
Version: 2 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_systems 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 

Running main ddb53 clo c3i spare 

Operator: c3i 
Version: 3 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.prepare_periodic_report 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages.decide_for_archiving 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.comms_interfacejesolve_incoming_messages.extract_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_incoming_messages.parse_input_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3 i.com ms_interface.resol ve_incom ing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_outgoing_messages.convert_to_text_file 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interfacejesolve_outgoing_messages.forward_for_translation 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.comms_interfacejesolve_outgoing_messages.forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.translate_message 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_links 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.navigation_system 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.normalize_sensor_information 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i .sensor_interface.prepare_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensors 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
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Operator c3i.track_database_manager.monitor_database 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.track_database_manager.update_tracks.add_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.add_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.track_database_manager.update_tracks.add_user_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.tiack_database_managerupdate_tracks.filter_sensor_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks.update_the_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager.update_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.track_database_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.display_graphic_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.display_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.userjnterface.emergency_status_screen 
Version: 3 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator c3i.user_interface.get_modification_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator c3i.userjnterface.get_user_inputs 
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Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.intelligence_report_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.manage_user_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_arrival 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_arrival_panel 
Version: 3 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.message_editor 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.status_screen 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface 
Version: 3 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.weapons_systems 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 



CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
Press Return to continue ... 

********************************************************************** 

echo “*NAVALPOSTGRADUATESCHOOL*” 

echo “ * Software Engineering *” 

echo " * Design Database *” 

echo “ * Thesis Advisor Dr. Luqi 

echo " * Written by: Drew Dwyer and Garry Lewis *” 

echo" * Design Database vl.l WP.D.A.L.G . *” 
********************************************************************** 

[7msun53:/n/geminiAvork/dwyer/SCCS»tm exit 
exit 

script done on Tue Sep 3 11:36:13 1991 
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APPENDIX D 



CODE 



A. PREPARATION NOTES 

This code was written using Glockenspiel C++ version 2.0a. 

B. PRINTING NOTES 

This code was prepared for printout using the c++2Iatex code generator. This 
generator parses the ASCII text input files and places latex commands where directed. This 
makes the code layout more readable and highlights the important data strucutes and key 
words within the C++ code. The latex output was then converted to postscript format with 
the dvitops program. 

C. MAINTENANCE 

This code is maintained at the Naval Postgraduate School Computer Science 
department. 
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// File Header 

// •• 

// .Filename ; main.cxx 

//.SCCS ID ; 1.3 

//.Release No...,: 1 

//.Date ; 9/16/91 

//.Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C +- f 2.1 

u 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char main_SccsId[] = M Q(#)main. exx 1 . 3\t9/l6/91"; 

// Interface Dependencies 

#if ndef _DDBDEFINES_H 
#include ”ddbdef ines .h” 

#endif 

#include <Object .h> 

#include <Transaction.h> 

#include <Directory .h> 

#include <GlobalEntities .h> 

#include <Database.h> 

#include <List.h> 

#include <stream.hxx> 

extern M C — M 

{ 

#include <stdlib.h> 

#include <stddef .h> 

#include <string.h> 

#include <ctype.h> 

} 

#ifndef _VOBJECTFUNC.H 
#include ”vobjectfuiic .h” 

#endif 

#ifndef —EVALUATION _H 
#include ”evaluation.h” 

#endif 

#ifndef _PROTFUNC_H 
#include ”protfunc.h” 

#endif 
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#ifndef __CONFFUNC_H 
#include ’’conffunc.h” 

#endif 

// End Interface Dependencies 

Type *V_OBJECT_OType; 

Type *THREAD_OType; 

Type *COMPONENT_OType; 

Type *TEXT_OBJECT_OType; 

Type *PROTOTYPE-OType; 

Type *CONFIGURATION_OType; 

Type *DDB_OType; 

Directory *prototype.dir = (Directory*)0; 
Directory *ddbRootDir = (Directory*)0; 
List ♦myPrototypeList = (List*)0; 
char *database_name — (char *)0; 
char *userPtr = (char *)0; 
char *dirNamePtr = (cliar *)0; 
void initialize_types(void); 
void setUpDirectory(char *, char *); 

int main(int argc, char *argv[|) 

{ 

dirNamePtr = getenv( M PROTOTYPE"); 
userPtr = getenv("USER M ); 

Boolean done=FALSE; 
int menu_option=0; 
ifstream inFile; 



char *function_tag; 

int number-arguments; 
int run = 0; 

if (argv[l]) 

{ 

database-name = new char[strlen(argv[l])+l]; 
strcpy(database_name,argv[l]); 

} 

if (argv[2]) 

{ 

function-tag = new char[strlen(argv[2])+l]; 
strcpy(function_tag, argv[2]); 

} 

number.arguments = argc - 3; 
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// subtract the ” design ” ” database ” & ’’function 
// from the argument(s) we evaluate . 



if (number-arguments < 0) 

{ 

cerr M <ERROR: Hot enough arguments specif ied>\n\n M 
< " Format for Usage: \n\n" 

<C " designdb dbasename function [argument, ...]\n\n M 
exit(l); 

} 

if (OC-open(database-name)) 

{ 

OC-transactionStart(); 

initialize_types(); 

setUpDirectory(argv[3], function-tag); 

} 

else 

{ 

cerr <C n <ERR0R: Error attempting to open database " 
database_name 

" > database does not exist in registry\n\n\n"; 

exit(l); 

} 

if (strlen(function_tag)<3 || strlen(function_tag)>3) 

{ 

cerr <£ M <ERR0R: illegal function type — > < M 
<C function-tag M > >\n"; 

} 

else 

{ 

if (function_tag[0] == ’P’ || function-tag[0]==’p’) 

run = evaluate_prototype_function(upper(function Jtag), 

number .arguments); 

else if (function.tag[0] == ’C’ || function- tag[0]==’c’) 
run=evaluate_configurationiunction(upper(function_tag), 

number.arguments); 

else if (function.tag[0] == ’V’ || function- tag[0]==V) 
run = evaluate_vobject_function(upper(function_tag), 

number_arguments); 

else 

{ 

cerr <C "<ERR0R: illegal function type — > < M ; 
cerr C function.tag <^C u > >\n"; 

} 

} 

switch (run) 
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{ 

case LIST-PROTOTYPES: 

list-prot Junc(number_arguments) ; 
break; 

case LONG_LIST_PROTOTYPES: 
longJist_prot_func(number_arguments); 
break; 

case GET.PROTOTYPEJLEADER: 

get_prot Jeader _func(number .arguments, argv[3j); 
break; 

case DUMP JPROTOTYPE_SUMM ARY: 

dump_protjsummary.func(number_arguments, argv[3]); 
break; 

case GETJ>ROTOTYPE_DESCRIPTION: 

get_prot .description _func(number .arguments, argv[3]); 
break; 

case RETRIEVE.PROTOTYPEJDATE: 

retrieve _prot .date _func(number arguments , argv [3] ) ; 
break; 

case INSERT-PROTOTYPE: 

insert _prot_func(number .arguments, argv[3], 
argv[4], argv[5]); 

break; 

case UPDATE-PROTOTYPE-LEADER: 
update.protJeader -func(number .arguments, 

argv[3], argv[4]); 

break; 

case UPDATE JROTOTYPEJD ESC: 
update_prot_desc_func(number .arguments, 

argv [3], argv[4]); 

break; 

case UPDATE-PROTOTYPE-NAME: 

update.protjiameJ‘unc(number_arguments, 

argv [3], argv[4]); 

break; 

case DUMP.CONFIGURATIONJSUMMARY: 
dump.conf^ummary_func(number_arguments, 

argv[3],argv[4]); 

break; 

case GET.LATEST.CONFIGURATION: 
getJatest jconf J*unc(number .arguments, 
argv[3]); 

break; 

case ADD.CONFIGURATION. OPERATORS: 



add_confjoperatorsJ*unc(number .arguments, 

argv[3],argv[4]); 

break; 

case DUMP.CONFIGURATION.OPERATORS: 



dump.conf_operators_func(number .arguments, 

argv [3] , argv [4] , arg v [5] ) ; 



break; 
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case RELEASE-CONFIGURATION -LOCK: 
release _conf Jock _func(number-arguments, 

argv[3],argv[4]); 

break; 

case LONG-LIST-CON FIGURATION-OPERATORS: 
long-list_conf_operators-func(number_arguments, 

argv[3],argv[4]); 

break; 

case LIST-CON FIGURATION .OPERATORS: 
list_conf_operators-func(number_arguments, 

argv[3],argv[4]); 

break; 

case LIST-CONFIGURATION .DEFAULT-OPERATOR: 
list_conf_default_operator-func(number-arguments, 

argv[3],argv[4]); 

break; 

case LIST-CONFIGURATIONS: 

list_conf_func(number_argurnents, argv[3]); 
break; 

case UPDATE-CONFIGURATION-NAME: 
update_conf_narne_func(nurnber_argurnents, 

argv[3], argv[4], 
argv[5]); 

break; 

case GET-CONFIGURATION_DESCRIPTION: 
get_conf_desc-func(number -arguments, 
argv[3], argv[4]); 

break; 

case INSERT-CONFIGURATION: 

insert_conf_func(number_arguments, argv[3] , 
argv[4], argv[5], argv[6]); 

break; 

case UPDATE-CONFIGURATION-DESCRIPTION: 
update_conf_desc-func(argv[3] , argv[4] , 

argv[5]); 

break; 

case GET-CONFIGURATION-MANAGER: 
get-Confjmanager_func(number_arguments, 

argv[3], argv[4]); 

break; 

case UPDATE-CONFIGURATION-MANAGER: 

update _conf jmanager-func(number^arguments, arg v[3] , 

argv[4], argv[5]); 

break; 

case GET_CONFIGURATION JDATE: 
get-conf_date_func(number_arguments, 
argv[3], argv[4]); 

break; 

case GET.CON FIGURATION -CHANGED: 
case POST-CONFIGURATION -LOG: 



131 



post_confJog_func(argv[3], argv[4], argv[5]); 
break; 

case GETXONFIGURATIONXOG: 
get_confJog-func(number .arguments, 
argv[3], argv[4]); 

break; 

case ATTACH J3PERATOR: 

attach.vobject Jto_conf_func(number.arguments, 

argv[3],argv[4], 

argv[5],argv[6]); 

break; 

// X X -X X 

II 

// V OBJECT CASE STATEMENTS 

II 

// X A” -X A' 

case LIST .OPERATORS: 
list_operators_func(number .arguments, argv[3], 
argv[4],argv[5]); 

break; 

case GET J/OBJECT -DESCRIPTION: 

get_vobject_desc_func(number .arguments, argv[3], 

argv[4], argv[5]); 

break; 

case UPDATEJVOBJECT-DESCRIPTION: 
update.vobject_desc_func(number .arguments, 

argv[3], argv[4], 
argv[5], argv[6]); 

break; 

case GET.VOBJECT-DATE: 

get_vobject_date_func(number_arguments, argv[3] , 

argv[4], argv[5]); 

break; 

case GET.VOBJECT.VERSIONS: 

get.vobject.versions_func(number .arguments, 

argv[3], argv[4]); 

break; 

case GET.VOBJECTXOCK: 

get.vobject Jock Junc(number.arguments, 

argv[3], argv[4], argv[5]); 

break; 

case GET.VOBJECT.VERSION: 
get_vobject_version_func(); 
break; 

case DUMP.VOBJECTJSUMMARY: 

dump_vobject-Summary-func(number.arguments, argv[3], 

argv[4], argv[5]); 

break; 

case GET.VOBJECT.POSTSCRIPT: 

get.vobject. psfile_func(number .arguments, argv[3] , 

argv[4], argv[5],argv[6]); 
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break; 

case GET-VOBJECT -GRAPH: 

get-vobject-graphfile.func(number_arguments,argv[3], 

argv[4], argv[5],argv[6]); 

break; 

case GET-VOBJECTJMPLEMENTATION: 

get_vobject_impfile_func(number_arguments, argv[3], 

argv[4], argv[5],argv[6]); 

break; 

case GET-VOBJECT-SPECIFICATION: 

get_vobject_specfile-func(number -arguments, argv[3], 

argv[4], argv[5],argv[6]); 

break; 

case GET-VOBJECT -SOURCE: 

get_vobject_sourcefile_func(number -arguments, 

argv[3], argv[4], 
argv[5],argv[6]); 

break; 

case DUMP-VOBJECT -FILES: 

dump_vobject_files-func(number_arguments, 

argv[3], argv[4], 
argv[5],argv[6]); 

break; 

case DUMP.VOBJECT-TREE: 

dump_vobject-tree-func(number-arguments, argv[3], 

argv[4], argv[5],argv[6]); 

break; 

case ADD.VOBJECT-AND-SUBTREE: 

add-vobject-and-subtree_func(number .arguments, 

argv[3],argv[4]); 

break; 

case RELEASE-OPERATOR-LOCK: 

release-operator Jock-func(number -arguments, 

argv[3],argv[4], 

argv[5]); 

break; 

case RELEASE-SUBTREE_LOCK: 

release-subtree Jock _func(number -arguments, 

argv[3],argv[4], 

argv[5]); 

break; 

case LONG-LIST-OPERATORS: 

long-list_operators_func(number_arguments,argv[3], 

argv[4],argv[5]); 

break; 

case LONG-LIST_CHILDREN: 

longJist_children J*unc(number_arguments,argv[3], 

argv[4],argv[5]); 

break; 

case LONG-LIST-PARENTS: 

long Jist_parents_func(number .arguments, argv[3], 
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argv[4],argv[5]); 



break; 

case ERRORJN EVALUATION: 

cerr <C M <ERROR: Error returned from evaluation" 
<C M function>\n M ; 
break; 
default: 

{ 

cerr <C "<ERROR: Unknown error with function " 
<C " call., switch (run) . . . >\n"; 
exit(l); 

} 

} 

OC_transactionCommit(); 

OC_close(database_name) ; 

cerr M \n\nDesign Database " 

< M vl.l Copyright 1991(c) WP.D.A.L.G Inc.\n\n\n M ; 
exit(O); 



// 

// END OF MAIN 

// 

// 

void initialize-types(void) 

{ 

THREAD.OType=(Type *)OC_lookup( "THREAD"); 
COMPONENT.OType=(Type *)OCJookup("C0MP0NENT"); 
V.OBJECT_OType=(Type *)OCJookup("V.0BJECT"); 
TEXT-OBJECT _OType=(Type *)OCJookup("TEXT-0BJECT"); 
PROTOTYPE_OType=(Type *)OCJookup("PR0T0TYPE"); 
CONFIGURATION.OType = (Type *)OC-lookup("C0NFIGURATI0N"); 
DDB_OType = (Type *)OCJookup("DDB"); 

}; 



void setUpDirectory(char *protName, char *func^tag) 

{ 



ddbRootDir = (Directory *) OCJookup(DESIGN-DATABASE-DIRECTORY); 
if(ddbRootDir) 

{ 

OCjsetWorkingDirectory(ddbRootDir); 

myPrototypeList = (List *) OCJookup(PROTOTYPEJLIST); 

} 

else 

{ 

ddbRootDir = new Directory(DESIGN_DATABASE_DIRECTORY); 
ddbRootDir — » putObject(); 

OCjsetWorkingDirectory (ddbRootDir); 

myPrototypeList = new List(OC_string, PROTOTYPE-LIST); 
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myPrototypeList — ► putObject(); 

} 

char *yourDirChoice; 

if ((strcmp(func.tag, LIST.PROTOTYPE.UPC) == 0) || 
(strcmp(func_tag, LIST-PROTOTYPE.LC) == 0) || 
(strcmp(func_tag, LONG-LIST-PROTOTYPE J.C) == 0) || 
(strcmp(func.tag, LONG-LIST.PROTOTYPE-LC) == 0)) 

{ 

return; 

} 

else 

{ 

yourDirChoice = new char[l + strlen(protName) -f 5]; 
strcpy(yourDirChoice, protName); 
strcat(yourDirChoice, "_dir"); 

} 

prototype_dir = (Directory *)OC Jookup(yourDirChoice); 

if ((!(strcmp(func-tag,INSERT-PROTOTYPE.UPC))==0) kk 
(!(strcmp(func-tag, INSERT -PROTOTYPE-LC))==0) kk 
(!(prototype_dir))) 

{ 

cerr "<ERR0R: Prototype " protName 
M not found>\n" 

<C M <Did you remember to run " 

< "INSERT PROTOTYPE first?>\n"; 
OC_transactionCommit() ; 

OC-close(database-name) ; 
exit(0); 

. } 

if (!prototype_dir) 

{ 

prototype.dir = new Directory(yourDirChoice); 
prototypejdir— ►putObject(); 
if (iprototype.dir) 

cerr "Did not setup database directory\n"; 
OCjsetWorkingDirectory(prototype_dir); 

} 

else 

{ 

OC-setWorkingDirectory(prototype_dir); 

} 



} 
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// File Header 

// •• 

// .Filename ; component. h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

//.Author. : Garry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

#ifndef _COMPONENT_H 
#def ine -COMPONENTS 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char COMPONENT_h_SccsId[] = (#) component . h 1 . 3\t9/16/91" 

// Contents 

// 

// COMPONENT 

II 

// Description 

// 

1 1 Defines class COMPONENT. 

II 

U End 

// Implementation Dependencies 

#include <Type.h> 

#include <List.h> 

#include <Ref erence .h> 

#include ”Ref erenceMacros .h” 

#include <stream.hxx> 

// End Implementation Dependencies 

// Interface Dependencies 

#ifndef _TEXT_OBJECT JI 
#include ”text_obj ect . h” 

#endif 

// End 

TypeCheckReference(TextObjDictReference, Reference, List); 

// Class // 
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class COMPONENT : public Object 

{ 

private : 

TextObj Diet Reference text job ject Jist ; 

public: 

COMPONENT); 

COMPONENT(APL *theAPL); 

virtual void Destroy(Boolean abort = FALSE); 

virtual Type *getDirectType(); 

void getComponentNames(); 

Boolean getComponentSource(char*); 
void addTextObject(TEXT_OBJECT *); 

Boolean getPSfile(char*); 

Boolean getGRAPHfile(char*); 

Boolean getSPECfile(char+); 

Boolean getIMPfile(char*); 

Boolean getSOURCEfile(char*); 

~COMPONENT() { Destroy(FALSE); }; 

}; 

// Description 

// 

// Defines an COMPONENT class. The class COMPONENT is a derived 
/ / class of Object. 

// 

II Constructor 

// 

1 1 COMPONENT 

II 

II Constructs an COMPONENT object 

// 

U COMPONENT -A PL 

II 

II ONTOS required constructor 

// 

/ / Public Members 

// 

II Destroy 

II 

II ONTOS heap mangagement method. 

II 

II getDirectType 

II 

II Return the ONTOS Type of class COMPONENT. 

n 

II getComponentN ames 

// 
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// Display the file names of the file contained in the COMPONENT node 

// 

// getComponentSource 

// 

II Output the contents of an COMPONENT node to files . 

// 

If addTextOhject 

n 

II Inserts a text-object into the COMPONENT node. 

1/ 

// getPSfile 

II 

II Output the .ps file contained in the COMPONENT node. 

II 

II getGRAPHfile 

II 

II Output the .graph file contained in the COMPONENT node. 

II 

II getSPECfile 

II 

II Output the .spec file contained in the COMPONENT node. 

1/ 

II getIMPfile 

II 

II Output the .imp file contained in the COMPONENT node. 

// 

II getSOURCEfile 

II 

II Output the .a file contained in the COMPONENT node. 

ii 

II ~ COMPONENT 

II 

// Destructor for the COMPONENT class. 

// 

II End 

#endif // _ COMPONENT .H 
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// File Header 

//•••• •• 

// .Filename : component. cxx 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

/ / ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

II •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char COMPONENT_cxx_SccsId[| = "G(#)component . cxx 1 . 3\t9/16/91" 

// Contents 

// 

// COMPONENT-COMPONENT ONTOS constructor 

/ 1 COMPONENT-COMPONENT constructor 

// COMPONENT::getDirectType 

// COMPONENT-Dcstroy 

/ / COMPONENT::getComponentNames 

II COMPONENT::getComponentSource 

/ 1 COMPONENT::addTextObject 

II COMPONENT::getPSfile 

II COM PONENT-getGRA PH file 

II COMPONENT: :gctSPECfile 

/ 1 COMPONENT::gctIMPfile 

/ 1 COMPONENT-getSOURCEfik 

II 

// Description 

ii 

// Implementation of class COMPONENT member functions. 

// 

// End 

// Implementation Dependencies 

#ifndef __DDBDEFINES-H 
#include ”ddbdef ines .h” 

#endil 

#include <0b j ect . h> 

#include <GlobalEntities .h> 

extern M C — " 

{ 

#include <strings.h> 

} 
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#ifndel __TRACER_H 
#include ” tracer. h” 

#endif 

#ifndef _COMPONENT_H 
#include ” component .h” 

#endil 

// End Implementation Dependencies 

extern Type *COMPONENT_OType; 
extern Type *TEXT_OBJECT_OType; 

// ONTOS required constructor // 

COMPONENT: :COMPONENT(APL *theAPL):(theAPL) 

{ 

}; 



// Constructor // 

COMPONENT::COMPONENT() 

// Summary 

// 

// Constructs a persistent COMPONENT object. 

n 

// Parameter 

1/ 

/ / None 

// 

II Functional description 

// 

II Creates a list to hold text objects, then reset a reference 
/ 1 to point to the list. 

ll 

II End 

{ 

initDirectType(COMPONENT_OType); 

List *newTextObjList = new List (TEXT _OBJECT_OType); 
newTextObjList — ► putObjectQ; 
text_object Jist.Reset(newTextObjList, this); 
putObjectQ; 

}; 

// End Constructor COMPONENT::COMPONENT// 



If Member Function // 

Type *COMPONENT::getDirectType() 



140 



// Summary 

// 

// returns the ONTOS Type for the COMPONENT class. 

// 

If Return value 

// 

II A pointer to an ONTOS Type. 

// 

1 1 End 

{ 

return COMPONENTJDType; 

}; 

// End Member Function COMPONENT::getDirectType // 

// Member Function // 

void COMPONENT::Destroy(Boolean aborted) 

{ 

if( aborted) 

{ 

Object::Destroy(aborted); 

} 

} 

// End Member Function COMPONENT:: Destroy 

// Member Function // 

void COMPONENT: :getComponentNames() 

// Summary 

// 

// Displays the name of each component in an COMPONENT object. 

// 

II Parameter 

// 

If None 

II 

II Functional description 

// 

II We get a pointer to the list and then create an iterator 
II for the list. We iterate over each text object and 
II display the contents of the name field. 

// 

// 

II End 

{ 

List *my_list = (List*)text_objectJist.Binding(this); 
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Listiterator my Jterator( myJist) ; 
TEXT-OBJECT * the -text job ject; 



while(my_iterator.moreData()) 

{ 

the-text .object = (TEXT_OBJECT*)(Entity*)my iterator(); 
the-text jobject — ► displayFileName(); 

} 



// End Member Function COMPONENTr.getComponentNames 

// Member Function // 

Boolean COMPONENT: :getComponentSource(char *fileMode) 

{ 

List *my_list = (List*)text_objectJist.Binding(this); 

Listiterator my -iterator(myJist) ; 

TEXT-OBJECT *the_text_object; 

Boolean write_failed = FALSE; 
while(myiterator.moreData()) 

{ 

the -text .object = (TEXT -OBJ ECT*)(Entity*)myiterator(); 
if (!the-text-object — ► rebuildTextFile(fileMode)) 
write-failed = TRUE; 

} 

if (write-failed) 
return FAILED; 
else 

return SUCCESS; 



// End Member Function COMPONENT::getComponentSource 

// Member Function // 

void COMPONENT::addTextObject(TEXT .OBJECT *myJtext .object) 

{ 

List *myJist = (List*)text_object_list.Binding(this); 
my Jist — ► Insert (my -text-object); 
myJist — ► putObject(); 
putObject(); 

} 

// End Member Function COMPONENT::addTextObject 

// Member Function // 

Boolean COMPONENT::getPSfile(char *fileMode) 

{ 

List *my_list = (List*)text_objectJist.Binding(this); 
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Listlterator my_iterator(my -list) ; 



while(myJterator.moreData()) 

{ 

TEXT-OBJECT *theJtext object = (TEXT_OBJECT*)(Entity*)my _iterator(); 
char *the_file-name = the-t ext .object— ►getFileName(); 
the_file_name=(the_file-name + 

(strlen(the-text .object— ►getFileName())-LENGTH-PS_EXT)); 
if(strcmp(theJile-name ) PS-EXT)==0) 

{ 

if (thejtext .object —►rebuildTextFile(fileMode)); 
return SUCCESS; 

} 

} 

} 

// End Member Function COMPONENT::getPSfile ' 

// Member Function // 

Boolean COMPONENT::getSPECfile(char *fileMode) 

{ 



List *myJist = (List*)text_object Jist.Binding(this); 

Listlterator my_iterator(my_list); 
while(my Jterator .moreDat a( )) 

{ 

TEXT-OBJECT *the_text object = (TEXT_OBJECT*)(Entity*)my JteratorQ; 
char *theJile.name = the_text.object— ►getFileName(); 
the_file-name=(the_file-name + 

(strlen(the.text .object— ►getFileName())-LENGTH -SPEC _EXT)); 
if(strcmp(theJ\le-name,SPEC-EXT)==0) 

{ 

if (the_text .object— ►rebuildTextFile(fileMode)) 
return SUCCESS; 
else 

return FAILED; 

} 

} 



// End Member Function COMPONENT::getSPECftle - 
// Member Function // 

Boolean COMPONENT::getGRAPHfile(char *fileMode) 

{ 

List *my_list = (List*)text-objectJist.Binding(this); 
Listlterator my Jterator(my.list) ; 
while(my_iterator.moreData()) 

{ 
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TEXT-OBJECT * the Jtext .object = (TEXT.OBJECT*)(Entity*)niy JteratorQ; 
char *the_file-name = the_text_object— ►getFileName(); 
the_file_name=(the_file_name + 

(strlen(the_text .object— ►getFileName())-LENGTH .GRAPH _EXT)) ; 
if(strcmp(the_filejiame,GRAPH_EXT)==0) 

{ 

if (the jtext .object— ►rebuildTextFile(fileMode)) 
return SUCCESS; 
else 

return FAILED; 

} 

} 



// End Member Function COMPONENT::getGRAPHfile 

// Member Function // 

Boolean COMPONENT::getIMPfile(char *fileMode) 

{ 

List *myJist = (List*)text-objectJist.Binding(this); 

Listlterator myJterator(my_list); 
while(myJterator.moreDataQ) 

{ 

TEXT-OBJECT *the Jtext .object = (TEXT£)BJECT*)(Entity*)my JteratorQ; 
char *theJile-Jiame = the-text_object— *getFileName(); 
theJile_name=(the_file_name + 

(strlen(the-text .object— ► getFileName())-LENGTH -IMP _EXT)); 
if(strcmp(theJile-name,IMP-EXT)==0) 

{ 

if (the -text .object— »rebuildTextFile(fileMode)) 
return SUCCESS; 
else 

return FAILED; 

} 

} 

} 

// End Member Function COMPONENT::getIMPfile 

// Member Function // 

Boolean COMPONENT::getSOURCEfile(char *fileMode) 

{ 

List *myJist = (List*)text_objectJist.Binding(this); 

Listlterator my_iterator(my_list) ; 
while(myJterator.moreData()) 

{ 

TEXT-OBJECT * the Jtext .object = (TEXT .OBJ ECT*)(Entity*)my Jterator(); 
char *theJile-name = the-text_object— +getFileName(); 
the_file_name=(the_file-name + 
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(strlen(the_text .object —»getFileName())-LENGTII_SOURCE_EXT)); 
if(strcmp(the_file_name,SOURCE_EXT)==0) 

{ 

if (the-textjobject— ►rebuildTextFile(fileMode)) 
return SUCCESS; 
else 

return FAILED; 

} 

} 

} 

// End Member Function COMPONENT::getSOURCEfile 
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// File Header 

// 

// .Filename : conffunc.h 

//.SCCS ID ; 1.3 

//.Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

/ / ; Drew Dwyer 

// .Compiler ; Glockenspiel C- f+ 2.1 

// •• 

// End header comments 

#if ndef _CONFFUNC-H 
#def ine _CONFFUNC.H 

// SCCS ID follows: will compile to place date/time stamp in 
/ / object file 

static char conffuncJi_SccsId[] = "®(#)conffunc .h 1 .3\t9/16/91 M 

/ / Contents 

// 

// Prototypes for functions related to manipulating 
// configurations. 

// 

II End 

void list_conf_func(int, char *); 
void dump-conf«summary_func(int,char *,char *); 
void get Jatest.conf_func(int, char *); 

void attach^vobject-to_conf_func(int,chfir *, char *, char *, char *); 

void update_conf_name_func(int, char*, char*, char*); 

void get_conLdesc_func(int, char*, char*); 

void insertxonf_func(int, char*, char*, char*, char*); 

void update>conLdesc_func(char*, char*, char*); 

void get.conf_manager_func(int, char*, char*); 

void update_conf_manager_func(int, char*, char*, char*); 

void get_conf_date_func(int, char*, char*); 

void post_confJog_func(char*, char*, char*); 

void get. conf Jog_func(int, char*, char*); 

void dump_conLoperators_func(int,char *,char *,char *); 

void add>confjoperators_func(int, char *,char *); 

void release_conf Jock _func(int, char *,char *); 

void long Jist_conLoperators_func(int, char *,char *); 

void list_conLoperators_func(int, char *,char *); 

void list _conLdefault_operator_func(int, char *,char *); 

// Description 

II 

II lisi.conf-func 

II 
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// Provides a list of configurations associated with a 
If designated prototype. 

// 

II dump -Co nf ^summary June 

// 

II Provides summary information of a configuration to 
f I to include: creation date, manager, version number and 
II default VOBJECT name, and a description. 

// 

II getJatesCconfJunc 

// 

II Provides the name of the most recently added configuration . 

// 

II attachjvobject-to-confjunc 

// 

II Attaches an instance of the VOBJECT class to a configuration. 

// 

II update.confjnamejunc 

// 

II Changes the name of a designated configuration. 

// 

II get-conf-desc.func 

// 

II Provides a description of the designated configuration. 

II 

II ins ert.conf June 

II 

II Creates a new configuration and binds it to a particular 
II prototype. 

II 

II update.conf-descjunc 

// 

If Updates the description text of a designated configuration. 

II 

II get.conf.managerjunc 

// 

II Provides a configuration manager’s name. 

// 

II update.conf ^manager June 

// 

II Changes a configuration manager’s name. 

II 

If geUconf. date June 

// 

II Provides the creation date of a given configuration. 

II 

II post.conf Jog June 

// 

II Adds a timestamped log entry (translated char string) 

1 1 to a configuration. 

ll 
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// get-conf Jog June 

II 

// Provides the text of a configuration log. 

// 

II dump-conf .operators June 

// 

II Write a copy of the operators in a designated configuration 
1 1 to disk. 

// 

II add-conf- operators June 

II 

II Add operator from disk to a particular configuration in the 
II database. 

// 

If release-conf Jock June 

// 

II Provide a method to release locked operators in a given 
II configuration. 

il 

/ / longJist.conf -operators June 

il 

II List all the children’s names and version numbers of a 
If given configuration. 

il 

II list-conf-operatorsjunc 

// 

// List the immediate children’s name and version number of 
1 1 a given configuration. 

ll 

/ / list.conf -default-operator June 

il 

II Provides the name and version number of the default VOBJECT 
II assigned to the configuration. 

ll 

II End Description 

#endif // _ CONFFUNC.II 
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// File Header 

//•••• •• 

// .Filename ; conffunc.cxx 

/ /.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

II : Drew Dwyer 

II .Compiler : Glockenspiel C- f+ 2.1 

// •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
II object file 

static char confFunc_cxx_SccsIdQ = "$(#)conllunc . exx 1 . 3\t9/16/91" 

/ / Contents 

// 

/ / list-con f June 
/ / dump -conf summary June 
/ / getjatest-confifunc 
II attach-vobjectjo-conf.func 
II update -conf -name June 
/ / get-conf-descjunc 
/ / inserl-confjunc 
II update -conf-desc June 
II get-conf -manager June 
II update-conf-managerjunc 
/ / get-conf -date June 
II post-conf-logjunc 
II get-conf Jog June 
/ / dump -conf -operators June 
If ad d-conf-ope rat or s Ju n c 
/ / release-conf-lockjunc 
/ / long-list-conf-operatorsjunc 
II list-conf-operatorsjunc 
II list-conf-default-operatorjunc 
// 

/ 1 End 

// Implementation Dependencies 

#include < stream. hxx> 

#include <Directory .h> 

extern M C — " 

{ 

#include <sys/time.h> 

#include <sys/types .h> 

#include <stdlib.h> 
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} 



#ifndef —DIRECTORY _H 
#include ’’directory .h” 

#endif 

#ifndef __TREE_H 
#include ’’tree.h” 

#endif 

#ifndef __ TREENODE-H 
#include ”treenode .h” 

#endif 

#ifndef -PROTOTYPED 
# include ’’prototype .h” 

#endif 

#if ndef _ THREAD-H 
#include ’’thread.h” 

# end if 

#ifndef -CO N FIG U RATION JI 
# include ’’configuration.^’ 

#endif 

#ifndef ^CONFFUNC -H 
#include ” conf f unc . h” 

#endif 

#if ndef -JDDBDEFINES.H 
# include ’’ddbdef ines .h” 

#endif 

PROTOTYPE *protoPtr; 

CONFIGURATION *configurationPtr; 
extern THREAD *threadPtr; 

// End Implementation Dependencies 

ifstream inputfile; 

void list-Conf_func(int number-arguments, char *argl) 

{ 

char ♦prototype-name = new char [strlen(argl)+5]; 
strcpy (prototype jname,argl); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 1: 
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protoPtr = (PROTOTYPE*)OC_lookup(prototype_name); 
protoPtr — ► listConfigurations(); 
break; 
case 3: 
default : 

cerr <C M <ERROR: extra arguments in list conf igurations>\n M ; 

} 



void dump_conf_summary_func(int number-arguments, char *argl, char *arg2) 

{ 

char *prototype_name = new char [strlen(argl)-|-5]; 
strcpy (prototype-name, argl); 
strcat(prototype.name,PROTOTYPE_EXT); 

switch(number-arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC_lookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = (C0NFIGURATI0N*)0C_lookup(arg2); 
if(configurationPtr) 

{ 

configurationPtr — ► dumpConfigSummary(); 

} 

else 

{ 

cerr "<ERR0R: " <C arg2 <C " configuration not found>\n"; 
cerr M <Dump configuration operation terminated>\n"; 
return; 

} 

} 

else 

{ 

cerr <C "<ERR0R: " <C argl <C " prototype not found>\n"; 
cerr " Dump configuration operation terminated\n"; 
return; 

} 

break; 

default: 

cerr ^ M <ERRQR: extra arguments in dump configuration suminary>\n M 

} 

} 

void get Jatestjconf_func(int number-arguments, char *argl) 

{ 

char *prototypejiame = new char [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototype_name,PROTOTYPE_EXT); 



151 



switch (number-arguments) 

{ 

case 1: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype-name); 
protoPtr — ► getDefaultConfigName(); 
break; 
case 3: 
default: 

cerr M <ERR0R: extra arguments in get default conf igurations>\n"; 

} 



void attach-vobject-to-conf_func(int number-arguments, char *proto-name, 

char *config_name,char *operator_name,char *versionstr) 

{ 

char *prototype_name = new char [strlen(protojiame)+5]; 
strcpy (prototype Jiame, proto_name); 
strcat(prototype_name, PROTOTYPE JEXT); 

switch (number-arguments) 

{ 

case 3: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

threadPtr = (THREAD *)OC_lookup(operator-name); 
if (threadPtr) 

{ 

configurationPtr = (CONFIGURATION *)OCJookup(configjiame); 
if (configurationPtr) 

{ 

V-OBJECT *vobjectPtr; 
vobjectPtr = threadPtr— >-current(); 
configurationPtr— ►attach VobjecttoConfig(vobjectPtr); 
configurationPtr— ►putObjectQ; 

} 

else 

{ 

cerr <C "<Error getting configuration in attach vobject to config>\n" 

} 

} 

else 

{ 

cerr <fC "<Error getting thread in ATTACILVOBJECT_TQ_CONFIG : >\n"; 

} 

} 

else 

{ 

cerr ■C "< Error getting Prototype in ATTACE.VOBJECT.TO_CONFIG:>\n"; 

} 

break; 
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case 4: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

threadPtr = (THREAD *)0C -look up (operator _name); 
if (threadPtr) 

{ 

configurationPtr = (CONFIGURATION *)OCJookup(config_name); 
if (configurationPtr) 

{ 

V -OBJECT *vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
configurationPtr— ►attach VobjecttoConfig(vobjectPtr); 
configurationPtr— ►putObjectQ; 

} 

else 

{ 

cerr <C "<Error getting configuration in attach, vobject to config>\n" 

} 

} 

else 

{ 

cerr < "<Error getting thread in ATTACH.VOBJECT.TCLCONFIG : >\n"; 

} 

} 

else 

{ 

cerr < "<Error getting Prototype in ATTACH. VOBJECT.TO. CONFIG : >\n"; 

} 

break; 

default: 

cerr <C "<ERR0R: invalid number args for get vobject descript ion>\n"; 

} 



void update_conf_nameJunc(int number-arguments, char *argl, char *arg2, char *arg3) 

{ 

char *prototype-name = new char [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 3: 

protoPtr = (PROTOTYPE*)OCJookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = (CONFIGURATION*)OC_lookup(arg2); 
if (configurationPtr) 

{ 
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configurationPtr —+ updateConfigName(arg3); 

} 

else 

{ 

cerr <C "<Prototype M argl "does not " 

<C "contain configuration " arg2 <C ">\n" 

<C "< Update configuration Name operation aborted . >\n"; 
break; 

} 

} 

else 

{ 

cerr << "<Prototype " <C argl <C " not found>\n" 

<C "<update configuration name operation abort ed>"; 

} 

break; 

default: 

cerr "<ERR0R: invalid number args for update Config Name>\n"; 

} 



void get_conf_descJunc(int number-arguments, char *argl, char *arg2) 

{ 

char *prototype_name = new char [strlen(argl)-f 5]; 

strcpy(prototype_name,argl); 

strcat(prototype_name,PROTOTYPE-EXT); 

switch (number-arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototypejiame); 
if (protoPtr) 

{ 

configurationPtr = (CONFIGURATION *)0C_lookup(arg2); 
if (configurationPtr) 

{ 

configurationPtr — * getConfigDescription(); 

} 

else 

{ 

cerr "<Conf iguration: " <C arg2 " is not contained " 

<C "in prototype " <C argl <C ".>\n" 

"<get configuration Description Operation Aborted. >\n" 

} 

} 

else 

{ 

cerr "<Prototype " <C argl <C " not found>\n" 

<C "<get configuration description operation aborted>"; 

} 
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break; 

default: 

cerr <C M <ERROR: invalid number args for get configuration descript ion>\n*'; 

} 



void insert_confJunc(int number_arguments, char *argl, char *arg2, char *arg3, char *arg4) 

{ 

char *prototype-name = new char [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototype_name,PROTOTYPE.EXT); 

switch (number_arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = (CONFIGURATION *)0C_lookup(arg2); 
if (IconfigurationPtr) 

{ 

configurationPtr = new C0NFIGURATI0N(arg2); 
protoPtr — ► addConfiguration(configurationPtr); 

} 

else 

{ 

cerr "<ERR0R: Configuration name " arg2 <C " already exists !>\n M 
return; 

} 

} 

else 

{ 

cerr <C *'<Prototype M argl " not found>\n" 

"<no Configuration operation conduct ed>"; 

} 

break; 
case 3: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = (CONFIGURATION *)0CJookup(arg2); 
if (IconfigurationPtr) 

{ 

configurationPtr = new C0NFIGURATI0N(arg2, arg3); 
protoPtr — ► addConfiguration(configurationPtr); 

} 

else 

{ 

cerr <C "<ERR0R: Configuration name M <C arg2 <C " already exists !>\n" 
return; 
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} 

} 

else 

{ 

cerr <C "<Prototype M <C argl " not found>\n" 

< "<no Configuration operation conduct ed>"; 

} 

break; 
case 4: 

protoPtr = (PROTOTYPE*)OC Jookup(prototypejiame); 
if (protoPtr) 

{ 

configurationPtr = (CONFIGURATION *)OC_lookup(arg2); 
if (IconfigurationPtr) 

{ 



configurationPtr = new C0NFIGURATI0N(arg2, arg3); 
inputfile.open(arg4, ios::in); 
if (linputfile) 

{ 

cerr <C "<File with config description contents does not exist>\n" 
<C "<Constructing configuration w/Name k Manager only>\n M ; 

} 

else 

{ 

configurationPtr — ► updateConfigDescription(arg4,inputfile); 

} 

protoPtr — * addConfiguration(configurationPtr); 
inputfile.cIose(); 

} 

else 

{ 

cerr <C "<ERR0R: Configuration name " <C arg2 <C " already exists !>\n"; 
return; 

} 

} 

else 

{ 

cerr <C M <Prototype " argl " not found>\n" 

<C "<no Configuration operation conducted>"; 

} 

break; 

default: 

cerr <C M <ERR0R: invalid number args for insert conf iguration>\n"; 

) 



void u p date _conf_d esc _func(char *argl, char *arg2, char *arg3) 

{ 

char *prototype_name = new char [strlen(argl)+5]; 
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strcpy (prototype _name,argl); 
strcat(prototype_name,PROTOTYPE-EXT); 

protoPtr = (PROTOTYPE*)OC Jookup(prototype-name); 
if (protoPtr) 

{ 

configurationPtr = (C0NFIGURATI0N*)0CJookup(arg2); 
if (configurationPtr) 

{ 

inputfile.open(arg3, ios::in); 
if (linputfile) 

{ 

cerr <C "<File with conf ig description contents not found>\n" 
<C "<Aborting update configuration operation>\n"; 

} 

else 

{ 

configurationPtr — * updateConfigDescription(arg3, inputfile); 
inputfile.close(); 

} 

} 

else 

{ 

cerr <C "<Prototype " <C argl <C "does not " 

"contain configuration " <C arg2 <C ">\n" 

<C "<Update configuration Description operation aborted. >\n" 

} 

} 

else 

{ 

cerr <C "<Prototype " <C argl <C " not found>\n" 

<C "<no Configuration operation conducted>"; 

} 



void get_conLmanagerJunc(int number_arguments, char *argl, char *arg2) 

{ 

char *prototype_name = new char [strlen(argl)-f 5]; 
strcpy (prototype .name , arg 1 ) ; 
strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototypemame); 
if (protoPtr) 

{ 

configurationPtr = (CONFIGURATION *)0C_lookup(arg2); 
if (configurationPtr) 

{ 



157 



configurationPtr — ► getConfigManagerQ; 

} 

else 

{ 

cerr -C "< Configuration: " <C arg2 " is not contained " 

< "in prototype M -C argl ".>\n" 

< "<get configuration Manager Operation Aborted. >\n"; 

} 

} 

else 

{ 

cerr "<Prototype " argl -C " not found>\n" 

-C "<get configuration manager operation aborted>"; 

} 

break; 

default: 

cerr <C "<ERROR: invalid number axgs for insert conf iguration>\n"; 

} 



void update xonf_manager Junc(int number-arguments, char *argl, char *arg2, char *arg3) 

{ 

char *prototype_name = new char [strlen(argl)+5]; 

strcpy(prototype_name,argl); 

strcat(prototype-name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 3: 

protoPtr = (PROTOTYPE*)OC _lookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = (C0NFIGURATI0N*)0C_lookup(arg2); 
if (configurationPtr) 

{ 

configurationPtr — ► updateConfigManager(arg3); 

} 

else 

{ 

cerr -C "<Prototype " <C argl -C "does not " 

<C "contain configuration " -C arg2 -C ">\n" 

"<Update configuration Manager operation aborted. >\n"; 

} 

} 

else 

{ 

cerr -C "<Prototype " argl " not f ound>\n" 

"<update configuration Manager operation aborted>"; 

} 

break; 
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default: 

cerr <C M <ERROR: invalid number args for update Config Manager>\n"; 

} 



void get_conf_dateJfunc(int number-arguments, char *argl, char *arg2) 

{ 

char *prototype_name = new char [strlen(argl)+5]; 

strcpy(prototypeaiame,argl); 

strcat(prototypejiame,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

protoPtr =: (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = (C0NFIGURATI0N*)0C_lookup(arg2); 
if (configurationPtr) 

{ 

time_t systemtime = configurationPtr — * getConfCreationDateQ; 
cout <C ctime(fcsystemtime) <C M \n"; 

} 

else 

{ 

cerr <C " Configuration " <C arg2 C " not found>\n" 

< M <no Configuration operation conducted> M ; 

} 

} 

else 

{ 

cerr <C "CPrototype M <C argl <C " not found>\n M 

<C "<find configuration creation date operation aborted>"; 

} 

break; 

default: 

cerr <C "<ERROR: invalid number args to get configuration creation date>\n" 

} 



void post-confJogJfunc(char *argl, char *arg2, char *arg3) 

{ 

char *prototype_name = new char [strlen(argl)+5]; 
strcpy(prototype Jiame,argl); 
strcat(prototypejiame,PROTOTYPE-EXT); 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 
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configurationPtr = (C0NFIGURATI0N*)0CJookup(arg2); 
if (configurationPtr) 

{ 

inputfile.open(arg3, ios::in); 
if (linputfile) 

{ 

configurationPtr — ► addtoConfigLog(arg3); 

} 

else 

{ 

configurationPtr — * addtoConfigLog(inputfile); 
inputfile.close(); 

} 

} 

else 

{ 

cerr "<Prototype " <C argl <C "does not " 

<C "contain configuration " <C arg2 <C ">\n" 

<C "<Update configuration Log operation aborted. >\n"; 

} 

} 

else 

{ 

cerr <C "<Prototype " <C argl " not found>\n" 

<C "<no Configuration operation conducted>"; 

} 



void get_conf_log_func(int number-arguments, char *argl, char *arg2) 

{ 

char *prototype_name = new char [strlen(argl)+5]; 
strcpy(prototype -name, argl ); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch (number_arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = (CONFIGURATION *)0C Jookup(arg2); 
if (configurationPtr) 

configurationPtr — ► getConfigLog(); 

} 

else 

{ 

cerr "<Conf iguration: " arg2 " is not contained 

< "in prototype " < argl < " .>\n" 

•C "<get configuration log operation aborted. >\n"; 
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} 

} 

else 

{ 

cerr < "<Prototype " <C argl <C " not found>\n M 
<C "<get configuration log operation aborted>"; 

} 

} 

} 



void dump-Conf_operatorsJunc(int number .arguments, char *proto_name,char *conf,char 
*file_write-option) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 
strcpy (prototype jiame,proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 3: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

configuration? tr = protoPtr— ►getConfiguration(conf); 
if (configurationPtr) 

{ 

V -OBJECT *vobjectPtr = configurationPtr— ►getDefaultVobjectQ; 
if (vobjectPtr) 

{ 

long vobjectJocktime =0; 

vobject Jocktime = vobjectPtr— ►getLockTimeQ; 
if (vobject Jocktime>0) // prevent checkout 

{ 

if (strcmp(file_write_option,"w M )==0) // change ”w” to ”r” 

{ 

cerr <C "<ERR0R: Module " vobjectPtr— >-getNodeName() 

<C " locked by : " <C vobjectPtr— »-getWorker() 

" Resetting write option to read-only>\n M ; 
strcpy (file-write .option, "r"); 

} 

cerr "CCaution: " <C vobjectPtr— ►getNodeNameQ 

" is locked. > \n" <C "Date Locked: " 

<C ctime(&vobject Jocktime) 

"Subtree checked out in read-only roode\n"; 

} 

else 

cerr <C "HODENAME > " vobjectPtr— ►getNodeNameQ 

<C "\nVersion: " vobjectPtr— ► get VersionNumberQ <"\n\n" 

Boolean file-operation -successful = FALSE; 
file.operationjsuccessful = 
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vobjectPtr — ► checkoutCOMPONENTNode(file-write_option); 
if ((file_operationjsuccessful) kk 

((strcmp(file_write_option,"W M )==0) || 

(strcmp(file-write-option, ,, w M )==0))) 

{ 

vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorkerQ; 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr — ^put Object (); 

_ } 

if (file_operation successful) 

vobjectPtr — ► dumpSubtree(file-write .option); // dump rest of tree 
else 

cerr <C "<Error checking out " <C vobjectPtr — ►getNodeName() 

" Aborting dump_vobject-tree-f unc>\n"; 

} 

else 

cerr "<Error: No Vobject is attached to dump conf iguration>\n"; 

} 

else 

{ 

cerr "<Error getting configuration in dump conf iguration operators : >\n" 

} 

} 

else 

{ 

cerr <C "<Error getting Prototype in dump configuration operators : >\n"; 

} 

break; 

default: 

cerr <C "<ERR0R: invalid number args for dump conf igurat ion operators>\n M ; 

} 



} 

void add_conf_operatorsJunc(int number-arguments, char *proto_name,char *conf) 

{ 

char ^prototype-name = new char [strlen(proto_name)+5]; 
strcpy(prototype_name, proto-name); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype-name); 
if (protoPtr) 

{ 

configurationPtr = protoPtr— ►getConfiguration(conf); 
if (configurationPtr) 

{ 

V -OBJECT ^vobjectPtr = configurationPtr— ♦getDefaultVobjectQ; 
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if (vobjectPtr) 

{ 

DIRECTORY *capsdirectory; 
capsdirectory = new DIRECTORY(); 

char * operator -name = new char [strlen(vobjectPtr— *getName())+l]; 
strcpy (operator -name, vobjectPtr— ►getName()); 
capsdirectory —► read .directory (operator -name) ; 
capsdirectory— ►updatetimestamp(); 

TREENODEJinkedlist operatorList = capsdirectory— ►getOperatorListO; 
TREENODE *rootnode = capsdirectory— ►find _treenode(operator -name); 
TREENODE *tree_root = new TREENODE(rootnode,NULL); 

TREE *workingtree = new TREE(tree joot, operator .name); 
workingtree— ►build_tree(tree .root, operatorList); 
cerr <C "CHECKIN — > " <C operator .name "\n"; 

V.OBJECT *new .parent = (V.OBJECT *)0; 
new_parent= vobjectPtr— >getParent(); 

V.OBJECT *new_root = tree .root— ►checkin_node(new .parent); 
if (!new_root) 

{ 

cerr <C M <Error: Could not establish new_root in" 

<C "add.conf .operator s.func . Aborting . >\n M ; 
break; 

} 

new_root— ►setNodeName(tree_root— ►getnameQ); 
tree-root — ►checkin _subtree(new .root); 

} 

else 

cerr "<Error: No Vobject is attached to this conf iguration>\n M ; 

} 

else 

{ 

cerr <C "<Error getting configuration in list configuration operators ; >\n M 

} 

} 

else 

{ 

cerr <C M <Error getting Prototype in list configuration operators: >\n”; 

} 

break; 

default: 

cerr M <ERROR : invalid number args for list configuration operators>\n M ; 



} 

void release . conf Jock _func(int number-arguments, char *proto_name, 

char *conf) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 
strcpy (prototype .name, proto-name); 
strcat(prototypejiame,PROTOTYPE_EXT); 
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switch (number-arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = protoPtr— ►getConfiguration(conf); 
if (configurationPtr) 

{ 

V.OBJECT * vobjectPtr = configurationPtr— »getDefaultVobject(); 
if (vobjectPtr) 

{ . 

if (vobjectPtr— ►releaseLock()) 

{ 

vobjectPtr— ►putObjectO; 
vobjectPtr — ► releaseLockSubtree(); 

} 

} 

else 

cerr <C M <Error: Ko Vobject is attached to this conf iguration>\n M ; 

} 

else 

{ 

cerr <C M <Error getting configuration in Release configuration Lock:>\n M 

} 

} 

else 

{ 

cerr <C M <Error getting Prototype in Release configuration Lock:>\n"; 

} 

break; 

default: 

cerr <C M <ERR0R: invalid number args for Release configuration lock>\n M ; 

} 



void longJist-conf_operators_func(int number-arguments, char *proto_name, 

char *conf) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 

{ 

configurationPtr = protoPtr— ►getConfiguration(conf); 
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if (configurationPtr) 

{ 

V .OBJECT ♦vobjectPtr = configurationPtr— ►getDefaultVobjectQ; 
if (vobjectPtr) 

{ 

// cerr « ” Operator : 

// cout « vobjectPtr->getName(); 

II //************ 

II// following for loop provides spacing... 

If // *********** 

// ini i=0; 

/ / for (i=0;i<(PRINT-VERSION-LOCATION-strlen(vobjectPtr->getName()));i++ ) 
II cout « ” 

II cerr « ” Version : 

II cout « vobjectPtr->getVersionNumber(); 

II cout « ”\n”; 

II time.t locktime = vobjectPtr->getLockTime(); 

II cerr « ’’Locktime is: ” « ctimef&lockiime) ,« ”\n”; 

vobjectPtr — ► longlistOperatorNames(); 

} 

else 

cerr <C M <Error: No Vobject is attached to this conf iguration>\n"; 

} 

else 

{ 

cerr <C "<Error getting configuration in list configuration operators : >\n“; 

} 

} 

else 

{ 

cerr M <Error getting Prototype in list configuration operators : >\n M ; 

} 

break; 

default: 

cerr <C "<ERR0R: invalid number args for list configuration operators>\n"; 

} 



void list-conLoperators.func(int number-arguments, char *protojiame, 

char *conf) 

{ 

char *prototype_name = new char [strlen(proto_name)-f 5]; 
strcpy (prototype Jiame,proto_name) ; 
strcat(prototype_name,PROTOTYPE-EXT); 

switch (number-arguments) 

{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
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if (protoPtr) 

{ 

configurationPtr = protoPtr— *getConfiguration(conf); 
if (configurationPtr) 

{ 

V -OBJECT * vobjectPtr = configurationPtr— ►getDefaultVobject(); 
if (vobjectPtr) 

{ 

char *name=vobjectPtr— ►getName(); 
int version =vobjectPtr— ►getVersionNumber(); 
cerr <C "Operator: 
cout name; 

/ /************ 

// Added following for statement for spacing ... 

Jj *********** 
int i=0; 

for (i=0;i<(PRINT.VERSION LOCATION - 

strlen(vobjectPtr— ►getNodeName()));i-l— (-) 

cout < " 

cerr <C "\nVersion: 
cout <C version <C "\n"; 

time-t locktime = vobjectPtr— ►getLockTimeQ; 

cerr <C "Locktime is: " <C ctime(felocktime) <C M \n"; 

vobjectPtr — ► listOperatorNames(); 

} 

else 

cerr <C "<Error: No Vobject is attached to this conf iguration>\n"; 

} 

else 

{ 

cerr <C "<Error getting configuration in list configuration operators : >\n" 

} 

} 

else 

{ 

cerr "<Error getting Prototype in list configuration operators : >\n"; 

} 

break; 
default : 

cerr <C "<ERR0R: invalid number args for list configuration operators>\n"; 

} 

} 

void list_conf-default_operator_func(int number-arguments, char *proto_name, 

char *conf) 

{ 

char *prototype_name = new char [strlen(proto_name)-j-5]; 
strcpy(prototypejiame, protojiame); 
strcat(prototypejiame, PROTOTYPE JEXT); 

switch (number-arguments) 
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{ 

case 2: 

protoPtr = (PROTOTYPE*)OC Jookup(prototypejiame); 
if (protoPtr) 

{ 

configuration Ptr = protoPtr— >getConfiguration(conf); 
if (configurationPtr) 

{ 

V -OBJECT * vobjectPtr = configurationPtr— ►getDefaultVobject(); 
if (vobjectPtr) 

{ 

char *name=vobjectPtr— ►getName(); 
int version = vobjectPtr— ►getVersionNumber(); 
cerr <C "Operator: 
cout name; 

/ /************ 

// Added following for statement for spacing... 

! j *********** 
int i=0; 

for (i=0;i<(PRINT_VERSION LOCATION - 

strlen( vobjectPtr— ►getNameO )) ;i-}—f) 
cout < " M ; 
cerr " Version: 
cout <C " " <C version "\n"; 

} 

else 

cerr "<Error: No Vobject is attached to this conf iguration>\n" 

} 

else 

{ 

cerr <C "<Error getting configuration in list M 
M configuration default operator : >\n"; 

} 

} 

else 

{ 

cerr <C "<Error getting Prototype in list " 

<C M configuration default operator : >\n"; 

} 

break; 

default: 

cerr <C "<ERR0R: invalid number args for list " 

<C "configuration default operator>\n"; 

} 

} 
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// File Header 

// •• 

// .Filename : configuration. h 

//.SCCS ID ; 1.3 

//.Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Carry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C- f4* 2.1 

// •• 

// End header comments 

#ifndef — CONFIGURATION _H 
#def ine -CONFIGURATIONS 

// SCCS ID follows: will compile to place date/time stamp in object file 

static char configuration_h_SccsId[| = "€(#) configuration. h 1 . 3\t9/16/91"; 

// Contents 

// 

// CONFIGURATION 

// 

// Description 

n 

II Defines class CONFIGURATION 

II 

II End 

// Implementation Dependencies 

#include <Object.h> 

#include <Ref erence .h> 

#include <Dict ionary .h> 

#include <stream.hxx> 

extern "C — " 

{ 

#include <sys/time.h> 

#include <sys/types .h> 

} 

#include ”Ref erenceMacros .h” 

// End Implementation Dependencies 

// Interface Dependencies 

#ifndef — TEXT.OB J ECT JI 
#include ”text_object .h” 

#endif 
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#ifndef _-VERSIONED-OBJECT_H 
#include ” versioned-obj ect .h” 

#endif 

// End Interface Dependencies 

TypeCheckReference(V JO bject Reference, Reference, V -OBJECT); 
TypeCheckReference(LogReference, Reference, TEXT -OBJECT); 
TypeCheckReference(Desc2Reference, Reference, TEXT -OBJECT); 

#def ine DEFAULT-MANAGER ,,M 

// Class // 

class CONFIGURATION : public Object 

{ 

private: 

char config-status; 
char *config_manager; 
time.t ConfCreationDate; 
int config_num-vobjects; 

LogReference configJog.entry; 

Desc2 Reference config-description; 

V-Ob j ectReference t he Versioned -Object ; 

public: 

CONFIGURATION(APL *); 

CONFIGURATION(char *name, char *manager=DEFAULT-MANAGER); 

virtual void Destroy (Boolean aborted=FALSE); 

virtual Type *getDirectType(); 

void getConfigName(); 

char *name(); 

void getConfigStatus(); 

void getConfigManager(); 

void getConfigLog(); 

void getConfigDescription(); 

void dumpConfigSummaryQ; 

void HstConfigOperators(); 

void updateConfigManager(char *new-config_manager); 
void updateConfigName(char *new_config-name); 
void updateConfigStatus(char new-configjstatus); 
void addtoConfigLog(char *new_log_entry); 
void addtoConfigLog(ifstream&); 
void updateConfigDescription(char *, ifstream&; ); 

V-OBJECT *CON FIG URATION::updateVobject Attachment (); 
void attach VobjecttoConfig( V-OBJECT*); 
time-t setConfCreationDate(); 
time_t getConfCreationDateQ; 

V-OBJECT *getDefaultVobject(); 

-CONFIGURATION) { Destroy(FALSE); } 
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// Description 

// 

// Defines a CONFIGURATION class. 

II 

// Constructor 

// 

II configuration -APL 

// 

II ONTOS required constructor 

II 

II configuration 

// 

II constructs a configuration object with the given name , 

II and manager. 

// 

II Public Members 

ll 

II destroy 

// 

II Used to cleanup memory during deletion and transaction aborts. 

// 

II getDirectType 

// 

II Returns the ONTOS type for this class. 

// 

II getConfigName ; 

// 

II Sends the configuration name to standard out. 

// 

II name 

// 

II Returns a pointer to the configuration name. 

ll 

// getConfigStaius 

// 

II Sends the configuration status to standard out. 

// 

II getConfigManager 

// 

II Sends the manager f s name for this particular configuration. 

// 

II getConfigLog 

// 

II Sends the configuration log to standard out. 

ll 

II getConfigDescripiion 

II 



// Sends the configuration description to standard output . 

// 

// dumpConfigSummary 

// 

// Provides name , version number of root vobject , date and 
II description of configuration. 

// 

II listConfig Operators 

// 

// list the name of component operators in a configuration. 

// 

II updateConfigManager 

// 

II Changes the manager’s name for this configuration. 

// 

II updateConfigName 

// 

II Changes the configuration name. 

// 

II updateConfigStatus 

// 

II Changes the configuration status field. 

// 

II addtoConfigLog 

// 

II A log to maintain a history of the configuration. 

// 

II updateConfigDescription 

// 

II Replaces the existing description if one exist or adds a new description. 

// 

II attach Vo bjectto Co nfig 

// 

II Adds a versioned object to configuration. 

// 

II setConfCreationDate 

// 

II Time stamp this object with the current system time. 

// 

II getConfCreationDate 

ll 

II Displays the time an instance of this class was created. 

// 

II getDefaultVobject 

// 

II Returns a pointer to the attach vobject. 

// 

// ~ configuration 

// 

1 1 A destructor for the configuration class. 

// 
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// End 

ffendif // — CON FIGURATION. H 
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/ / File Header 

// •• 

// .Filename : configuration. cxx 

//.SCCS ID ; 1.3 

/ /.Release No....: 1 

//.Date ; 9/16/91 

//.Author ; Carry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// : 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
/ / object file 

static char configuration_cxx_SccsId[] = M C(#) configuration. exx 1 . 3\t9/16/91“; 

// Contents 

// 

// CON FIGURATION r.CON FIG U RATION ONTOS constructor 
// CONFIGURATION -.-.CONFIGURATION new instance 
/ 1 CONFIG UR A TION: : Destroy 
/ / CONFIG UR A TION::geiDirectType 

I / C ON FIG U RA TION::geiCon fig No m e 

II CON FIGURATION ::name 

II CONFIGURATION::getConfigStatus 
/ / CONFIGURATION::getConfigManager 
/ 1 CONFIG URATION::getConfigLog 
/ / CON FIGU RATION ::getConfigDescription 
II CON FIGU RATION ::dumpConfigSummary 
II CON FIGURATION ::listConfigOperators 
/ / CONFIGURATION::updateConfigManager 
// CON FIGU RATION r.updateConfigName 
II CONFIG URATION::updateConfigStatus 
II CONFIGURATION::addtoConfigurationLog - string 
II CONFIGURATIONr.addtoConfigurationLog - file 
/ / CONFIG URATION::updateConfigDescripiion 
II CON FIGURATION r.attachVobjecttoConfig 
/ / CONFIGURATIONr.setConfCreationDate 
II CONFIG URATIONr.getConfCreationDate 
II CON FIGU RATION r.getDefauli Vobject 
II CONFIG UR A TION::~ CONFIG UR A TION 

II 

/ / Description 

II 

II Implementation of class CONFIGURATION member functions. 

// 

// End 

// Implementation Dependencies 
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#include <GlobalEntities .h> 

#include <Directory .h> 

#include <stream.hxx> 

extern "C-" 

{ 

#include <string.h> 

} 

// End Implementation Dependencies 

// Interface Dependencies 

#ifnd ei —CONFIGURATION -H 
# include ’’configuration.]*” 

#endif 

#ifnd ef _DDBDEFINES -H 
#include ’’ddbdef ines .h” 

#endif 

// End Interface Dependencies 

extern Type *V_OBJECT_OType; 
extern Type *CONFIGURATION.OType; 

// ONTOS required constructor // 

CONFIG URATION::CONFIGURATION(APL *theAPL) : (theAPL) 

{ 

}; 



// New Instance Constructors // 

CONFIGURATION::CONFIGURATION(cliar *name, 

char *manager):(name) 

// Summary 

// 

// Constructs a persistent CONFIGURATION object. This object 
If contains management (header information) about a CONFIGURATION 
II and a select group of modules in the configuration. 

// 

II Parameter 

// 

II name 

II 

/I A pointer to a character string. 

// 

II manager 

// 
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// A pointer to a character string. 

n 

// Functional Description 

II 

1/ Copies the manager’s name into private data member. Initializes 
II the description and log entry to null and creates a dictionary to 
II hold the configuration modules. 

II 

// End 



{ 

initDirectType(CONFIGURATION-OType); 
configjnanager = new char[strlen(manager)4-l]; 
strcpy(config_manager, manager); 
configjstatus = ’A’; 
configjium.vobjects = 0; 

ConfCreationDate = setConfCreationDateQ; 
config_description.initToNull(); 
configJog_entry.initToNull(); 
theVersioned_Object.initToNull(); 

putObjectQ; 



} 

// End Constructor for CONFIGURATION::CONFIGURATION 
II Member Functions // 

void CONFIGURATION::Destroy(Boolean aborted) 

{ 

delete config_manager; 
if (aborted) 

{ 

Object ::Destroy (aborted); 

} 

} 

Type *CONFIGURATION::getDirectType() 

{ 

return CONFIGURATION.OType; 

} 

void CONFIGURATION::getConfigName() 

{ 

Directory ^directory; 
char *name; 

if(!this) 

{ 

cerr <C M <ERR0R: cannot get the name o i a null CONFIGURATION>\n" 
return; 
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} 

name = Name(); 

OC-getNameComponents(name, ^directory, fename); 
cout <C name <C H \n"; 

} 

char *CONFIGURATION::name() 

{ 

Directory *directory; 
char *name; 

name = Name(); 

OC-getNameComponents(name, ^directory, fcname); 
return name; 

} 

void CONFIGURATION::getConfigStatus() 

{ 

if(!this) 

{ 

cerr -C "<ERR0R: cannot get the Status of a null Conf iguration>\n"; 
return; 

} 

cout -C configjstatus < "\n"; 

} 

void CONFIGURATION::getConfigManager() 

{ 

if(!this) 

{ 

cerr -C M <ERR0R: cannot get the Manager of a null Conf iguration>\n"; 
return; 

} 

cout -C config_manager "\n"; 

} 

void CONFIGURATION ::getConfigLog() 

{ 

if(!this) 

{ 

cerr <C M <ERROR : cannot dump the Log of a null Conf iguration>\n"; 
return; 

. ) 

if (IconfigJog.entry) 

{ 

cerr <C "<Cannot display an empty log>\n"; 
return; 

} 

else 

{ 
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TEXT-OBJECT* myTextObject = (TEXT_OBJECT*)config Jogjsntry.Binding(this); 
myTextObject — ► text(cout); 

} 



void CONFIGURATION::getConfigDescription() 

{ 

if(!this) 

{ 

cerr M <ERROR: cannot get the description of a null Conf iguration>\n M ; 
return; 

. } 

if (!config_description) 

{ 

cerr "<This configuration does not contain a description>\n"; 
return; 

} 

else 

{ 

TEXT-OBJECT* myTextObject = (TEXT-OBJECT*)configjdescription.Binding(this); 
myTextObject — ► text(cout); 

} 



void CONFIGURATION::dumpConfigSummary() 

{ 

int i=0; 

cerr <C "Creation Date: "; 

cout <C ctime(fcConfCreationDate) <C "\n"; 

cerr <^[ "Manager: 

getConfigManager(); 

if(!theVersioned_Object) 

{ 

cerr < "VOBJECT Name: 
cerr < "NONE ASSIGNED "; 

for (i=0;i<PRINT_VERSION_LOCATION -strlen("VOBJECT Name: NONE ASSIGNED ");i++) 

cout < " "; 

cerr <C "Version Humber: 
cerr < “HONE\n“; 

} 

else 

{ 

V-OBJECT *vobjectPtr = (V.OBJECT*) the Versioned -Object. Binding(this); 
cerr < "VOBJECT Name: "; 

cout <C vobjectPtr — ♦getNameQ; 

for (i=0;i< PRINT-VERSION-LOCATION - strlen(vobjectPtr-^getName());i++) 
cout <C " "; 

cerr <C "Version Number: "; 

cout <C vobjectPtr — ► getVersionNumber(); 

} 
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cout "Configuration Description follows: 
\n==================================\n"; 

get ConfigDescription() ; 

} 

void CONFIG URATION : :listConfigOperators() 

{ 

if( !the Versioned .Object) 

{ 

cerr -C "This configuration does not contain a v.object"; 

} 

else 

{ 

V .OBJECT *theVObjectPtr = 

(V.OBJECT*) theVersioned.Object.Binding(this); 
theVObjectPtr — ► getVObjNameQ; 
theVObjectPtr — ► listOperatorNames(); 

} 



void CONFIGURATION ::updateConfigManager(cliar *new_config_manager) 

{ 

if(!this) 

{ 

cerr -C "<ERR0R: cannot change the manager of a null CONFIGURATION>\n' 
return; 

_ } 

if ( confi g_m an ager ) 

{ 

strcpy(config_manager, 

} 

config_manager = new char[strlen(new_config_manager)-|-l]; 
strcpy(config_manager, new_config_manager); 
putObject(); 



void CONFIGURATION::updateConfigName(cliar *new_config_name) 

{ 

if(!this) 

{ 

cerr <C "<ERROR: cannot change the name of a NULL CONFIGURATION>\n”; 
return; 

} 

N ame(new_config_name) ; 

} 



void CONFIGURATION::updateConfigStatus(char new.config-status) 

{ 
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if(!this) 

{ 

cerr <C "<ERROR: cannot change the status o i a null CONFIGURATION>\n M ; 
return; 

} 

config-status = new-config .status; 

} 



void CONFIGURATION::addtoConfigLog(char *newJog_entry) 

{ . 

if(!configJog_entry) 

{ 

TEXT-OBJECT UextObjectPtr = new TEXT -OBJECTQ; 
textObjectPtr — + append(new Jogjentry); 
config Jog-entry. Reset(textObjectPtr, this); 

} 

else 

{ 

TEXT-OBJECT *textObjectPtr = 

(TEXT-OBJECT*) config Jog-entry.Binding(this); 
textObjectPtr ► append(new Jogjentry); 

} 

putObject(); 

} 

void CONFIGURATION::addtoConfigLog(ifstream& input_fileLstream) 

{ . 

if( Iconfig Jog-entry ) 

{ 

TEXT-OBJECT ^textObjectPtr = new TEXT JDBJECT(); 
textObjectPtr — ► append(input_filej5tream); 
config_description.Reset(textObjectPtr, this); 

} 

else 

{ 

TEXT-OBJECT *textObjectPtr = 

(TEXT-OBJECT*) config Jog_entry.Binding(this); 
textObjectPtr — ► append(input_filejstream); 

} 

putObject(); 

} 



void CONFIGURATION::updateConfigDescription(char *fileName, ifstreamfc input_file_stream) 

{ . 

if(!config_description) 

{ 

TEXT-OBJECT *textObjectPtr = new TEXTJ3BJECT(); 
textObjectPtr — *• append(fileName, input-file-stream); 
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config_description.Reset(textObjectPtr, this); 

} 

else 

{ 

TEXT-OBJECT *textObjectPtr = 

(TEXT.OBJECT*) config-description.Binding(this); 
textObjectPtr — + resetTheText(); 
textObjectPtr — * append(fileName, input_file_stream); 

} 

putObject(); 

} 

V -OBJECT *CONFIGURATION::updateVobjectAttachment() 

{ 

if (!this) 

{ 

cerr <C M <ERROR: cannot set the v.object of a null conf iguration\n M 
return NULL; 

} 

V.OBJECT *vobjectPtr = getDefaultVobject(); 
if (vobjectPtr) 

{ 

THREAD *threadPtr = (THREAD *)OCJookup(vobjectPtr— ►getNameQ); 
if (threadPtr) 

{ 

vobjectPtr = threadPtr— ►current (); 

theVersioned_Object.Reset(vobjectPtr,this); 

putObject(); 

} 

} 

return vobjectPtr; 

} 

void CONFIGURATION::attachVobjecttoConfig( V.OBJECT *theV .Object) 

{ 

if (!this) 

{ 

cerr <C "<ERROR: cannot set the v.object of a null conf iguration\n" 
return; 

} 

if (ItheV .Object) 

{ 

cerr <C "<ERR0R: cannot give to a configuration a null v.object >\n' 

} 

theVersioned-Object.initToNullQ; 
theVersioned-Object.Reset(theV .Object, this); 

} 

//Member Function // 

time_t CONFIGURATION::setConfCreationDate() 
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{ 

time.t mytloc=0; 
time-t theTime; 

return theTime = time(mytloc); 

} 

// End 



// Member Function // 

time.t CONFIGURATION::getConfCreationDate() 

{ 

return ConfCreationDate; 

} 

// Member Function // 

V .OBJECT * CONFIGURATION::getDefaultVobject() 

{ 

return (V-OBJECT *)(Entity *)theVersioned JDbject.Binding(this) 

} 

// End 

// end functions 
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// File Header 

// •• 

// .Filename ; ddbdefines.h 

//.SCCS ID ; 1.3 

//.Release No....: 1 

//.Date : 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C+- b 2.1 

// •• 

// End header comments 

#ifndef _DDBDEFINES-H 
#def ine __DDBDEFINES_H 

// SCCS ID follows: will compile to place date/time stamp in object file 

static char ddbdefines_h_SccsId[] = "®(#)ddbdef ines .h 1 . 3\t9/16/91"; 

// Contents 

n 

// Number Defines for Evaluations functions 

// 

/ / Description 

// 

// These # defines are all designed just to pass information back and forth 
// between the main program and the modules which evaluate the command line 
// for what function to run. There are basically three types of function 
// arguments CONFIGURATION arguments - beginning with a ’C\ PROTOTYPE 
// arguments - beginning with a > P\ and VOBJECT functions - beginning 
// with a } V\ All arguments are exactly 3 characters in length and must 
// conform to one of the valid arguments in the designed interface. All 
// other arguments will be invalid and return <Invalid Function> to the 
// Standard I/O. 

H 

/ 

// End 

// Interface Dependencies 

il 

II NONE 

II 

II End Interface Dependencies 

#def ine PRINT .CONFIG .LOCATION 20 
#define PRINT.VERSION -LOCATION 50 
#def ine MAX-LINE-LENGTH 1024 
#def ine COMMAND.TABLE.SIZE 50 
#def ine SUCCESS TRUE 
#def ine FAILED FALSE 
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#define LIST-PROTOTYPES 1 

#def ine LONG-LIST.PROTOTYPES 81230 

#define GET.PROTOTYPE.LEADER 2 

#def ine GET-PROTOTYPE-DESCRIPTION 3 

#define RETRIEVE-PROTOTYPE-DATE 5 

#def ine INSERT-PROTOTYPE 6 

#def ine UPDATE-PROTOTYPE DEADER 7 

#def ine UPDATE-PROTOTYPE.DESC 8 

#def ine UPDATE .PROTOTYPE-NAME 9 

#def ine GET -LATEST-CONFIGURATION 10 

#deline DUMP-PROTOTYPE-SUMMARY 987 

#def ine LIST-CONFIGURATIONS 21 

#def ine DUMP-CONFIGURATION-OPERATORS 91372 

#def ine ADD-CONFIGURATION-OPERATORS 91378 

#def ine LONG-LIST-CONFIGURATION-OPERATORS 92351 

#def ine LIST -CONFIGURATION-DEFAULT-OPERATOR 6189 

#def ine LIST-CONFIGURATION-OPERATORS 91375 

#def ine UPDATE-CONFIGURATION-NAME 22 

#def ine GET-CONFIGURATION-DESCRIPTION 23 

#def ine INSERT-CONFIGURATION 24 

#def ine UPDATE-CONFIGURATION-DESCRIPTION 25 

#def ine GET.CONFIGURATION-MANAGER 26 

#deiine UPDATE-CONFIGURATION-MANAGER 27 

#def ine GET .CONFIGURATION-DATE 28 

#deiine GET-CONFIGURATION.CHANGED 29 

#deline POST-CONFIGURATION-LOG 30 

#def ine GET_CONFIGURATION.LOG 31 

#def ine ATTACH.OPERATOR 32 

#def ine DUMP-CONFIGURATION-SUMMARY 33 

#def ine RELEASE-CONFIGURATION-LOCK 8124 

#define LIST-OPERATORS 41 

#def ine GET.VOBJ ECT.DESCRIPT10N 42 

#def ine GET.VOBJ ECT .DATE 43 

#define GET.VOBJ ECT.VERSIONS 44 

#def ine GET.VOBJECTXOCK 45 

#def ine GET.VOBJ ECT.VERSION 46 

#def ine DUMP.VOBJECT.SUMMARY 47 

#def ine GET-VOBJECT.POSTSCRIPT 48 

#define GET.VOBJ ECT.GRAPH 49 

#def ine GET.VOBJ ECT.IMPLEMENTATION 50 

#def ine GET.VOBJ ECT.SPECIFICATION 51 

#deline GET.VOBJECT^OURCE 52 

#def ine UPDATE.VOBJECT .DESCRIPTION 53 

#def ine ADD.VOBJECTJVND.SUBTREE 58 

#deline DUMP.VOBJECT-FILES 59 

#define DUMP.VOBJECT.TREE 60 

#def ine LONG-LIST-CHILDREN 61 

#def ine LONG-LIST-PARENTS 62 

#def ine LONG-LIST-OPERATORS 32981 
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#define RELEASE.SUBTREE.LOCK 8281 
Adeline RELEASE.0PERAT0R.L0CK 8992 

Adeline ERR0R.IN.EVALUATI0N 9999 

Adeline LENGTH.PS.EXT 3 
Adeline LENGTH.GRAPH.EXT 6 
Adeline LENGTH.IMP.EXT 9 
#deline LENGTH-SPEC. EXT 10 
Adeline LENGTH-SOURCE. EXT 2 

Adeline PS.EXT " .ps" 

#def ine GRAPH _EXT ".graph" 

Adeline IMP.EXT ".imp.psdl" 

Adeline SPEC.EXT ".spec.psdl" 

Adeline SOURCE^EXT ".a" 

Adeline DESIGN .DATABASE-DIRECTORY "ADesignDatabase" 
Adeline PROTOTYPE-LIST "PrototypeList" 

Adeline LONG.LIST.PROTOTYPE.UPC "PLL" 

Adeline LONG_LIST.PROTOTYPE.LC "pll" 

Adeline LIST.PROTOTYPE.UPC "PLN" 

Adeline LIST.PROTOTYPE.LC "pin" 

Adeline INSERT. PROTOTYPE.UPC "PIP" 

Adeline INSERT-PROTOTYPE. LC "pip" 

Adeline PROTOTYPE.EXT ".prj" 

Aendil // _ DDBDEFINES.H 
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// File Header 

// •• 

// .Filename ; directory. h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// ; 

// End header comments 

#ifndef _DIRECTORY_H 
#deline -DIRECTORY JI 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char directory _h_SccsIdQ = "G(#)directory .h 1 . 3\t9/16/91 M ; 

// Contents 

// 

// DIRECTORY HEADER 

// 

// Description 

II 

// Defines class DIRECTORY. 

II 

// End 

// Interface Dependencies 

#ilndef __TREENODE_H 
#include ”treenode .h” 

#endil 

// End Interface Dependencies 

class DIRECTORY 

{ 

private: 

TREENODEJinkedlist operator-nodes; 
public: 

DIRECTORY() {}; 

void read-directory(char *root_oper); 

void updatetimestamp(); 

TREENODE *find_treenode(char *); 

TREENODEJinkedlist getOperatorList(); 

}; 
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// Description 

// 

// Defines class DIRECTORY. Class DIRECTORY is a non - 
// persistent class. 

// 

// Constructor 

// 

// DIRECTORY 

II 

If Public Members 

// 

/ / read. directory 

n 

II Read a list of file from a directory defined by the environment 
If variable PROTOTYPE, creates a corresponding list of operator nodes. 

// 

II updatetimestamp 

ll 

II Updates the nodes time to reflect the time of the file 
II most recently updated. 

// 

If find.treenode 

// 

II Find a given node in the list of operator nodes. 

// 

II getOperatorList 

// 

II Returns the operator node list. 

// 

II End Description 

#endif // header file 
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// File Header 

// •• 

// .Filename ; directory. cxx 

//.SCCS ID : 1.3 

//.Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char directory.cxx_SccsId[| = "®(#)directory . cxx 1 . 3\t9/16/91" 

// Contents 

// 

// DIRECTORY: '.read-directory 
// DIRECTORYr.updatetimestamp 
j / DIRECTORY ::findAreenode 
// DIRECTORY::getOperatorList 

u 

// Description 

II 

H IMPLEMENTS class DIRECTORY CONSTRUCTORS. 

II 

II End 

// Interface Dependencies 

#include <stream .hxx> 

extern "C — " 

{ 

#include <stddel.h> 

#include <stdlib.h> 

#include <string.h> 

#include <dirent.h> 

#include <sys/stat.h> 

#include <time.h> 

} 

#ilndel —DIRECTORY _H 
#include ^directory .h” 

#endil 

#ilnd ei _DDBDEFINES Ji 
#include ”ddbdelines .h” 

#endi 1 

// End Interface Dependencies 
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extern char *dirNamePtr; 



void DIRECTORY: :read_directory (char *root.oper) 

{ 

// . 

//In body comment : 

// 

// Here I will create the list to hold those filenames that 

// contain (as a substring ) the operator name . This method 

// will also scan those files that do match the pattern input 

// and throw out those with the . ps , .graph, . imp.psdl , .spec.psdl 

// and . a files. What I hope will remain is a list of only those 

// filenames which represent that operator node and it’s 

// associated SUBTREE operator nodes . We’ll then turn around and 

// process the resulting list into an operator tree structure and 

// compare against the database schema for storage of the 

// .ps, graph, . spec.psdl , . imp.psdl , and .a text objects into 

// the database as collected sets of COMPONENT objects. 

// 

1/ 

DIR *dirp; 

struct dirent *capsdirent; 

char *path[MAX_LINE_LENGTH]; 

char *pschk = NULL; 

char *graphchk =NULL; 

char *specchk = NULL; 

char *impchk = NULL; 

char *sourcechk =NULL; 

TREENODE *operatornode =NULL; 
char *filename = NULL; 
strcpy(path,dirNamePtr); 
dirp = opendir(dirNamePtr); 
int count=0; 

TREENODE *temp; 

for (capsdirent = readdir(dirp); capsdirent ^ NULL; 
capsdirent = readdir(dirp)) 

{ 

filename= capsdirent— ►djiame; 

pschk = capsdirent -^d_name -f strlen (capsdirent -^djiame) - 3; 
graphchk = capsdirent -4d_name + strlen(capsdirent -^djiame) - 6; 
specchk = capsdirent — ►d .name -f strlen(capsdirent — ►d.name) - 10; 
impchk = capsdirent —►d.name -f strlen(capsdirent — ►d .name) - 9; 
sourcechk = capsdirent — ►d jiame *f strlen(capsdirent — ►d.name) - 2; 

if (strcmp(pschk, M .ps M )==0) 
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{ 

pschk[0] = ’\0’; 



} . 

else if (strcmp(graphchk," .graph M )==0) 

{ 

graphchk[0] = ’\0’; 



} . 

else if (strcmp(specchk, M . spec .psdl**)==0) 
{ 



specchk[0] = ’\0’; 



} . 

else if (strcmp(impchk, M . imp.psdl M )==0) 

{ 

impchk[0] = ’\0’; 



} . 

else if (strcmp(sourcechk, M .a'*)==0) 
{ 

sourcechk[0] = ’\0’; 



} 

if (strncmp(capsdirent — ►d_name,root_oper,strlen(root_oper))==0) 

{ 



if (!(temp=find_treenode(capsdirent— ►d.name))) 

{ 

operatornode = new TREENODE(capsdirent— _jiame,NULL); 
operator _nodes.insert(operatomode); 

} 

} 

} 

closedir(dirp); 

} 

void DIRECTORY : :updatetimestamp() 

{ 

DIR *dirp; 
struct dirent *filep; 

struct stat timestats; 

char *psfilename = NULL; 
char *graphfilename = NULL; 
char *specfilename = NULL; 
char *impfilename = NULL; 
char *sourcefilename = NULL; 
char *path[MAXJLINE_LENGTH]; 
char *node_name = NULL; 

TREENODE *node; 

long temptime = 0; 

long filetime = 0; 

dirp = opendir(dirNamePtr); 
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slist iterator OperatorPtr(operator modes) ; 



while (node = OperatorPtr()) 

{ 



node-name = node— ►getname(); 

psfilename = new char [strlen(node_name)+3]; 
strcpy (psfilename, node_name); 
strcat (psfilename," .ps"); 

graphfilename = new char [strlen(node_name)+6]; 
strcpy (graphfilename,node_name); 
strcat (graphfilename," . graph"); 

impfilename = new char [strlen(node_name)-l-9]; 
strcpy (impfilename, nodemame); 
strcat (impfilename," . imp . psdl"); 

specfilename = new char [strlen(node_name)+10]; 
strcpy (specfilename, node_name); 
strcat (specfilename," . spec . psdl"); 

sourcefilename = new char [strlen(node_name)-|-2]; 
strcpy (sourcefilename, node_name); 
strcat (sourcefilename," . a"); 

filep = readdir(dirp); 

while ((filep ^ NULL) && (!(strcmp(filep— ►d_name,psfilename)==0))) 

{ 

filep = readdir(dirp); 

} 

if ((filep ^ NULL) && (strcmp(filep— ►d_name,psfilename)==0)) 

{ 

strcpy (path,dirNamePtr); 
strcat (path,"/"); 
strcat (path,filep— ►d-name); 
stat(path ,&timestats) ; 
filetime — timestats.st-ctime; 
temptime = node— ^getJong_time(); 

node— »updatetimestamp(temptime < filetime ? filetime : temptime); 

} 

rewinddir(dirp); 
filep = readdir(dirp); 

while ((filep ^ NULL) && (!(strcmp(filep— ►d_name,graphfilename)==0))) 

{ 

filep = readdir(dirp); 

} 

if ((filep ^ NULL) &&; (strcmp(filep— ►d_name,graphfilename)==0)) 

{ 
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strcpy (path,dirNamePtr); 

strcat (path,"/"); 

strcat (path, filep— ►d-name); 

stat(path,fctimestats); 

filetime = timestats.st.ctime; 

temptime = node— ►getJong.timeQ; 

node— ►updatetimestamp(temptime < filetime ? filetime : temptime); 

} 

rewinddir(dirp); 
filep = readdir(dirp); 

while ((filep ^ NULL) && (!(strcmp(filep— ►d_name,impfilename)==0))) 

{ 

filep = readdir(dirp); 

. } 

if ((filep ^ NULL) (strcmp(filep— ►djiame,impfilename)==0)) 

{ 

strcpy (path,dirNamePtr); 

strcat (path,"/"); 

strcat (path, filep— ►djiame); 

stat(path,&timestats); 

filetime = timestats.st_ctime; 

temptime = node— ►get Jong.timeQ; 

node— ►updatetimestamp(temptime < filetime ? filetime : temptime); 

} 

rewinddir(dirp); 
filep = readdir(dirp); 

while ((filep ^ NULL) (!(strcmp(filep— ►d_name,specfilename)==0))) 

{ 

filep = readdir(dirp); 

. ) 

if ((filep ^ NULL) &&; (strcmp(filep— ►d_name,specfilename)==0)) 

{ 

strcpy (path,dirNamePtr); 

strcat (path,"/"); 

strcat (path, filep— ►d-name); 

stat(path,&timestats); 

filetime = timestats.st.ctime; 

temptime = node— *getJong_time(); 

node— ►updatetimestamp(temptime < filetime ? filetime : temptime); 

} 

rewinddir(dirp); 
filep = readdir(dirp); 

while ((filep ^ NULL) &&; (!(strcmp(filep— ►d_name,sourcefilename)==0))) 

{ 

filep = readdir(dirp); 

. } 

if ((filep ^ NULL) fcfc (strcmp(filep— ►d_name,sourcefilename)==0)) 

{ 
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strcpy (path,dirNamePtr); 
strcat (path,"/"); 
strcat (path,filep— ►dmame); 
stat(path,&;timestats) ; 
filetime = timestats.st.ctime; 
temptime = node— ►getJong.timeO; 

node— +updatetimestamp(temptime < filetime ? filetime : temptime); 

} 

rewinddir(dirp); 

} 

closedir(dirp); 

} 



TREENODE *DIRECTORY::find_treenode(ckar *node_name) 

{ 

slist .iterator list _iterator(operator_nodes) ; 

TREENODE *tnode; 
while (tnode=listiterator()) 

if (strcmp(tnode— ►getname(),node_name)==0) 
return tnode; 
return NULL; 

} 



TREENODEJinkedlist DIRECTORY::getOperatorList() 

{ 

return operator modes; 

} 
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// File Header 

// •• 

// .Filename ; evaluation. h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author : Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C-f-f 2.1 

// -• 

// End header comments 

#ifndef EVALUATION _H 
#def ine EVALUATION-H 

// SCCS ID follows: will compile to place date/time stamp in object file 
static char evaluation_h_SccsId[] = "$(#) evaluation .h 1 . 3\t9/16/91"; 

/ / Contents 

// 

// Prototypes of functions to evaluate the command line TAG 
// argument and set the appropriate case statement in main. 

II 

ll 

// End 

// Interface Dependencies 

1/ 

II NONE 

II 

/ / End Interface Dependencies 

char charupper(char c); 
char *upper(char ^argument); 

int evaluate-configuration _function(char ^function, int arguments); 
int evaluate.vobject Junction(char ^function, int arguments); 
int evaluate_prototypeJunction(char ^function, int arguments); 

// Description 

// 

// charupper 

n 

// Converts lower case letters to upper case. 

// 

/ / upper 

// 

// Converts the command line TAG field to upper case. Calls 
// charupper to convert each letter. 

// 

II evaluate.configuration.function 



194 



// 

// Determines the appropriate case statement to be executed for 
// database operation pertaining to configurations . 

// 

II evaluates object Junction 

// 

II Determines the appropriate case statement to be executed for 
II database operations pertaining to versioned objects. 

// 

II evaluate.prototype Junction 

// 

II Determines the appropriate case statement to be executed for 
II database operations pertaining to prototypes. 

// 

// End Description 

#endif // _ EVALUATIONJI 
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/ / File Header 

// •• 

// .Filename : evaluation. cxx 

//.SCCS ID ; 1.3 

//.Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler : Glockenspiel C++ 2.1 

II : 



// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char evaluation_cxx_SccsId[] = "€(#) evaluation. cxx 1 . 3\t9/16/91"; 

// Contents 

// 

// charupper 
// upper 

/ / evaluate .configuration .function 
// evaluates object -functi on 
// evaluate-prototype -function 

II 

/ / Description 

// 

U Defines FUNCTIONS FOR SWITCH STMT IN MAIN. 

II 

// This information is required to evaluate the command 
// line input and reconstruct the proper commands internal 
//to the design database program. 

// 

// 

// End 

// Interface Dependencies 

#ifndef __DDBDEFINES_H 
#include ”ddbdef ines .h” 

#endif 

#include <stream.hxx> 
extern "C — " 

{ 

#include <stdlib.h> 

#include <string.h> 

#include <ctype.h> 

} 

#if ndef -EVALUATION JI 
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#include ” evaluation. h' 
#endif 



// End Interface Dependencies 

char charupper(char c) 

{ 

return islower(c) ? (c-’a’-f’A’) : c; // change char to upper case 

}; 



char *upper(char ^argument) 

{ 

int i; 

for (i=0; i<strlen(argument); i+-(-) // convert argument to upper case 

argument[i] = charupper(argument[i]); // call charupper to convert each one 
return argument; 

}; 



int evaluatexonfiguration Junction(char ^function, int arguments) 

{ 

if (strcmp(function,"CLN M )==0) 

{ . 

if (arguments<l || arguments >1) 

{ 

cerr <C "<ERR0R: Invalid number arguments for List Conf igurations>\n"; 
return ERRORJN -EVALUATION; 

} 

else 

return LIST-CONFIGURATIONS; // tell main() to run LisLPrototypes 

} 

else if (strcmp(function, M CUN")==0) 

{ . 

if (arguments<3 || arguments>3) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for Update Configuration Name>\n"; 
return ERRORJN.EVALUATION; 

} 

return UPDATE-CONFIGURATION .NAME; 

} 

else if (strcmp(function, M CGD M )==0) 

{ . 

if (arguments<2 || arguments >2) 

{ 

cerr "<ERR0R: Invalid number arguments for Get Configuration Description>\n"; 
return ERROR-IN .EVALUATION; 

} 

return GET -CONFIGURATION-DESCRIPTION; 

} _ 

else if (strcmp(function,"CIC")==0) 
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{ . 

if (!arguments>0) 

{ 

cerr "<ERROR: Rot enough arguments for Insert Conf iguration>\n"; 

return ERRORJN -EVALUATION; 

} 

return INSERT .CONFIGURATION; 

} 

else if (strcmp(function,"CUD")==0) 

{ 

if (arguments<3 || arguments>3) 

{ 

cerr M < ERROR: Invalid number arguments for Update Configuration 
Description>\n"; 

return ERRORJN EVALUATION; 

} 

return UPDATE.CONFIGURATION -DESCRIPTION; 

} 

else if (strcmp(function, M CGM M )==0) 

{ . 

if (arguments<2 || arguments >2) 

{ 

cerr «C "<ERR0R: Invalid number arguments for Get Configuration Manager>\n"; 

return ERROR JN.EVALUATION ; 

} 

return GET.CONFIGURATION.MANAGER; 

} 

else if (strcmp(function,"CDT")==0) 

{ , 

if (arguments<3 || arguments>3) 

{ 

cerr <C "<ERROR: Invalid number arguments for Checkout Conf iguration>\n"; 

return ERRORJN EVALUATION; 

} 

return DUMP-CONFIGURATION-OPERATORS; 

} 

else if (strcmp(function, M CRL M )==0) 

{ . 

if (arguments<2 || arguments>2) 

{ 

cerr «C "<ERROR: Invalid number arguments for Release Configuration Lock>\n"; 

return ERROR JN-EVALUATION; 

} 

return RELEASE.CONFIGURATION.LOCK; 

} 

else if (strcmp(function, n CAA M )==0) 

{ . 

if (arguments<2 || arguments>2) 

{ 

cerr <C "<ERROR: Invalid number arguments for Checkin Conf iguration>\n"; 

return ERROR JN-EVALUATION; 
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} 

return ADD.CONFIGURATION.OPERATORS; 

} 

else if (strcmp(function,"CLL n )==0) 

{ . 

if (arguments<2 || arguments>2) 

{ 

cerr "<ERR0R: Invalid number arguments for List Configuration Operators>\n" 

return ERROR JN.EVALUATION; 

} 

return LONG-LIST-CONFIGURATION-OPERATORS; 

} 

else if (strcmp(function, M CLV")==0) 

{ . 

if (arguments<2 || arguments>2) 

{ 

cerr "<ERRGR: Invalid number arguments for List Default Configuration 
Operator>\n"; 

return ERROR JN.EVALUATION; 

} 

return LIST-CONFIGURATION-DEFAULT .OPERATOR; 

} 

else if (strcmp(function,"CLO M )==0) 

{ . 

if (arguments<2 || arguments>2) 

{ 

cerr -4C "<ERR0R: Invalid number arguments for List Configuration Operators>\n" 

return ERRORJN.EVALUATION; 

} 

return LIST-CONFIGURATION-OPERATORS; 

} 

else if (strcmp(function,"CUM")==0) 

{ _ 

if (arguments<3 || arguments>3) 

{ 

cerr <C "<ERR0R: Invalid number arguments for Update Configuration Manager>\n" 

return ERRORJN.EVALUATION; 

} 

return UPDATE-CONFIGURATION-MANAGER; 

} 

else if (strcmp(function,"CDA M )==0) 

{ . 

if (arguments<2 || arguments >2) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for Get Configuration Date>\n"; 

return ERRORJN.EVALUATION; 

} 

return GET.CONFIGURATION.DATE; 

} 

else if (strcmp(function,"CDS")==0) 

{ 
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if (arguments<2 || arguments >2) 

{ 

cerr <C "<ERROR: Invalid number arguments . . .Dump Coni iguration Summary>\n" 
return ERROR JN.EVALUATION; 

} 

return DUMP.CONFIGURATION-SUMMARY; 

} 

else if (strcmp(function, M CDC M )==0) 

{ . 

if (arguments<2 || arguments >2) 

{ 

cerr <C "<ERROR: Invalid number arguments ...Get Last Date Changed>\n"; 

return ERRORJN.EVALUATION; 

} 

return GET.CONFIGURATION.CHANGED; 

} 

else if (strcmp(function,"CPL M )==0) 

{ . 

if (arguments<3 || arguments>3) 

{ 

cerr <C "<ERR0R: Invalid number arguments for Post to Configuration Log>\n" 

return ERRORJN.EVALUATION; 

} 

return POST .CONFIGURATION-LOG; 

} 

else if (strcmp(function,"CGL")==0) 

{ . 

if (arguments<2 || arguments >2) 

{ 

cerr <C "<ERR0R: Invalid number arguments for Get Configuration Log>\n"; 
return ERRORJN.EVALUATION; 

} 

return GET.CONFIGURATIONXOG; 

} 

else if (strcmp(function,"CAO")==0) 

{ . 

if (arguments<3 || arguments >4) 

{ 

cerr "<ERR0R: Hot enough arguments for Attach Operators>\n"; 

return ERRORJN .EVALUATION; 

} 

return ATTACH.OPERATOR; 

} 

else 

{ 

cerr -C "Error in Configuration Command syntax \n\n"; 

} 



int evaluate.vobject -function (char *function, int arguments) 
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{ 

if (strcmp(function,"VLO")==0) 

{ . 

if (arguments<2 || arguments >3) 

{ 

cerr <C "<ERROR: Invalid number arguments for List Operators>\n"; 

return ERRORJN-EVALUATION; 

} 

return LIST.OPERATORS; // tell main() to run List Operators 

} 

else if (strcmp(function, M VUD")==0) 

{ 

if (!arguments>0) 

{ 

cerr <g. "<ERR0R: Invalid number of arguments for Update VOBJECT Description>\n" 

return ERRORJN-EVALUATION; 

} 

return UPDATE.VOBJECT .DESCRIPTION; 

} 

else if (strcmp(function,"VGD")==0) 

{ . 

if (!arguments>0) 

{ 

cerr "<ERR0R: Hot enough arguments to Get VOBJECT Description>\n”; 

return ERRORJN-EVALUATION; 

} 

return GET.VOBJECT -DESCRIPTION; 

} 

else if (strcmp(function,"VDD M )==0) 

{ . 

if (!arguments>0) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for Get VOBJECT Date>\n"; 

return ERRORJN-EVALUATION; 

} 

return GET.VOBJECTJDATE; 

} 

else if (strcmp(function,"VGV")==0) 

{ . 

if (arguments<2 || arguments >2) 

{ 

cerr <C "<ERR0R: Invalid number arguments for Get VOBJECT Versions>\n"; 

return ERRORJN-EVALUATION; 

} 

return GET.VOBJECT -VERSIONS; 

} 

else if (strcmp(function, , 'VVV M )==0) 

{ , 

if (arguments<l || arguments >1) 
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{ 

cerr <C "<ERROR: Invalid number of arguments for Get VOBJECT Current Version>\n"; 

return ERRORJN-EVALUATION; 

} 

return GET.VOBJECT .VERSION; 

} 

else if (strcmp(function, M VGL M )==0) 

{ t 

if (arguments <2 || arguments >3) 

{ 

cerr "<ERROR: Invalid number of arguments for Get VOBJECT Lock>\n"; 

return ERROR JN EVALUATION; 

} 

return GET.VOBJECTJLOCK; 

} 

else if (strcmp(function, M VDA H )=:=0) 

{ , 

if (arguments<2 || arguments >3) 

{ 

cerr <C "<ERROR: Invalid number of arguments for Get VOBJECT Summary>\n"; 

return ERROR JN -EVALUATION ; 

} 

return DUMP.VOBJECT -SUMMARY; 

} 

else if (strcmp(function,"VGP")==0) 

{ # 

if (arguments <3 || arguments >4) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for Get VOBJECT Postscript>\n"; 

return ERRORJN-EVALUATION; 

} 

return GET.VOBJECTJOSTSCRIPT; 

} 

else if (strcmp(function, , 'VGG' , )==0) 

{ . 

if (arguments <3 || arguments >4) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for Get VOBJECT GRAPH>\n"; 

return ERRORJN-EVALUATION; 

} 

return GET.VOBJECT -GRAPH; 

} 

else if (strcmp(function,"VGI")==0) 

{ 

if (arguments <3 || arguments >4) 

{ 

cerr -C "<ERROR: Invalid number of arguments for Get VOBJECT Implementation>\n"; 



202 



return ERRORJN .EVALUATION; 



} 

return GET.VOBJECT JMPLEMENTATION; 

} 

else if (strcmp(function,"VGC")==0) 

{ . 

if (arguments <3 || arguments >4) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for Get VOBJECT Specif ication>\n"; 

return ERROR JN.EVALUATION; 

} 

return GET.VOBJECTJSPECIFICATION; 

} 

else if (strcmp(function, M VGS u )==0) 

{ . 

if (arguments <3 || arguments >4) 

{ 

cerr "<ERR0R: Invalid number of arguments for Get VOBJECT Source>\n"; 

return ERROR JN_E VALUATION; 

} 

return GET.VOBJECT JSOURCE; 

} 

else if (strcmp(function,"VDS M )==0) 

{ > 

if (arguments <2 || arguments >3) 

{ 

cerr ”<ERR0R: Invalid number of arguments for Dump VOBJECT Source>\n"; 

return ERRORJN .EVALUATION; 

} 

return DUMP.VOBJECTJSUMMARY; 

} 

else if (strcmp(function,"VAA")==0) 

{ . 

if (arguments<2 || arguments >3) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for Add VOBJECT Subtree>\n"; 

return ERROR JN.EVALUATION ; 

} 

return ADD.VOBJECT.ANDJSUBTREE; 

} 

else if (strcmp(function,"VDF")==0) 

{ . 

if (arguments <3 || arguments >4) 

{ 

cerr "<ERR0R: Invalid number of arguments for Dump VOBJECT FILE(S)>\n"; 

return ERRORJN EVALUATION; 

} 

return DUMP.VOBJECTEILES; 

} 

else if (strcmp(function,"VLL")==0) 
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{ . 

if (!arguments>l) 

{ 

cerr <C "<ERROR: Invalid number of arguments for long list Operators>\n"; 
return ERRORJN EVALUATION; 

} 

return LONGXIST.OPERATORS; 

} 

else if (strcmp(function, M VLO")==0) 

{ . 

if (!arguments>l) 

{ 

cerr "<ERROR: Invalid number of arguments for list Operators >\n"; 

return ERRORJNXVALUATION; 

} 

return LIST-OPERATORS; 

} 

else if (strcmp(function, M VLP M )==0) 

{ . 

if (!arguments>l) 

{ 

cerr <£ "<ERROR: Invalid number of arguments for list Parent/Siblings>\n"; 

return ERRORJNEVALUATION; 

} 

return LONGXIST .PARENTS; 

} 

else if (strcmp(function/'VLC M )==0) 

{ # 

if (!arguments>l) 

{ 

cerr <C "<ERR0R: Invalid number of arguments for list Children>\n"; 
return ERRORJN.EVALUATION; 

} 

return LONGXIST .CHILDREN; 

} 

else if (strcmp(function,"VDT M )==0) 

{ . 

if (!arguments>l) 

{ 

cerr <C "<ERROR: Invalid number of arguments for Dump VOBJECT TREE FILE(S)>\n" 

return ERRORJN.EVALUATION; 

} 

return DUMP.VOBJECT.TREE; 

} 

else if (strcmp(function J M VRO")==0) 

{ . 

if (arguments <2 || arguments >3) 

{ 

cerr «C "<ERROR: Invalid number of arguments for Release Operator Lock>\n"; 
return ERROR JNXVALUATION; 

} 
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return RELEASE-OPERATOR-LOCK; 

} 

else if (strcmp(function,"VRS")==0) 

{ . 

if (arguments <2 || arguments >3) 

{ 

cerr "<ERROR: Invalid number of arguments for Release Operator Subtree 
Locks>\n"; 

return ERRORJN -EVALUATION; 

} 

return RELEASE-SUBTREE J,OCK; 

} 

else 

{ 

cerr M <<<Error in VOBJECT Command syntax>>> \n\n"; 

} 

}; 



int evaluate-prototype-function(char ^function, int arguments) 

{ 

if (strcmp(function, M PLN")==0) 

{ . 

if (!arguments==0) 

{ 

cerr "<ERROR: Too many arguments for List Prototype Names>\n"; 

return ERROR JN.E VALUATION; 

} 

else 

return LIST-PROTOTYPES; // tell main() to run List-Prototypes 

} . 

else if (strcmp(function, M PLL")==0) 

{ . 

if (!arguments==0) 

{ 

cerr <C "<ERROR: Invalid number of arguments for Long List Prototypes>\n"; 
return ERRORJN .EVALUATION; 

} 

return LONG-LIST-PROTOTYPES; 

} 

else if (strcmp(function, M PDS")==0) 

{ . 

if (argumentsd || arguments >1) 

{ 

cerr "<ERROR: Invalid number of arguments for Dump Prototype Summary>\n"; 

return ERRORJN EVALUATION; 

} 

return DUMP-PROTOTYPE-SUMMARY; 

} 
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else if (strcmp(function,"PGL M )==0) 

{ # 

if (argumentsd || arguments >1) 

{ 

cerr <C "<ERROR: Invalid number of arguments for Get Prototype Leader>\n"; 

return ERRORJN_EVALUATION; 

} 

return GET-PROTOTYPE-LEADER; 

} 

else if (strcmp(function,"PGD")==0) 

{ . 

if (arguments<l || arguments >1) 

{ 

cerr <C "<ERROR: Invalid number arguments for Get Prototype Description>\n" 
return ERROR JN.EVALU ATION ; 

} 

return GET-PROTOTYPE-DESCRIPTION; 

} 

else if (strcmp(function, M PRD")==0) 

{ . 

if (arguments<l || arguments >1) 

{ 

cerr <C ''<ERROR: Invalid number arguments for Retrieve Prototype Date>\n"; 
return ERROR JN.E VALUATION ; 

} 

return RETRIEVE-PROTOTYPE-DATE; 

} 

else if (strcmp(function, M PIP M )==0) 

{ # 

if (!arguments>0) 

{ 

cerr "<ERROR: Invalid number arguments for Insert Prototype>\n"; 
return ERROR JN.EVALU ATION; 

} 

return INSERT-PROTOTYPE; 

} 

else if (strcmp(function,"PUL M )==0) 

{ . 

if (arguments<2 || arguments >2) 

{ 

cerr "<ERROR: Invalid number arguments for Update Leader>\n"; 

return ERRORJN.EVALU ATION; 

} 

return UPDATE_PROTOTYPE_LEADER; 

} 

else if (strcmp(function, M PUD")==0) 

{ . 

if (! arguments==l) 

{ 

cerr <C "<ERROR: Invalid number arguments for Update Description>\n"; 

return ERROR-IN-EVALUATION; 
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} 

return UPDATE-PROTOTYPE _DESC; 

} 

else if (strcmp(function,"PUM M )==0) 

{ . 

if (! arguments==l) 

{ 

cerr "<ERR0R: Invalid number arguments for Update Name>\n"; 

return ERRORJN.EVALUATION; 

} 

return UPDATE-PROTOTYPE-NAME; 

} 

else if (strcmp(function, M PGC")==0) 

{ . 

if (arguments<l || arguments>l) 

{ 

cerr "<ERR0R: Invalid number arguments for Get.Latest.Conf iguration>\n” 

return ERROR JN-EVALUATION; 

} 

return GET -LATEST-CONFIGURATION; 

} 

else 

{ 

cerr "Error in Prototype Command syntax \n\n"; 

} 

}; 
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// File Header 

// 

// .Filename : nodesupport. h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

#i*ndef _NODESUPPORT\_H 
#def ine _NODESUPPORT-H 



// SCCS ID follows: will compile to place date/time stamp in 
/ / object file 

static char nodesupport_h_SccsId[] = M «(#)nodesupport .h 1 .3\t9/16/91 M ; 

// Contents 

ii 

II NODESUPPPORT HEADER FILE 

II 

// Description 

// 

II SIMPLE NODE SUPPORT Functions 

II 

/ / End 

// Interface Dependencies 

#ifndef __TREENODE_H 
#include ”treenode .h” 

#endif 

// End Interface Dependencies 

TREENODE* rootJind(TREENODEJinkedlist list_to.search, const char* str); 
int str^uffix_check(char* str, char ch); 
int proper_super_string(char* strl, char* str2); 

int proper_super_NODExheck(TREENODE* node_ptr, char* target string); 

/ / Description 

1/ 

// root-find 

// 

II Locates the root node associated with given operator name. 

II 

II str.suffix.check 
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II 

// Locates the suffix of a given string. 

// 

// propersuperstring 

u 

/! Determines whether one string is a prefix of another string 
II (i.e. f one operator is the child of another operator). 

// 

// propersuper-NOD E-check 

// 

/I Determines whether a given node should be added to the childlist 
/ / of a given operator name. 

II ' 

II End Description 

#endil // end nodesupport header file 
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// File Header 

// -• 

// .Filename ; nodesupport. cxx 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

//.Author ; Garry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C-f-f 2.1 

// : 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
II object file 

static char nodesupport_cxx_SccsId[] = "C(#)nodesupport . exx 1 . 3\t9/16/91" 

// Contents — * 

// 

/ / root-find 
// strsuffix -check 
/ / propersuperstring 
/ / proper super -N OD E-check 

// 

1 1 End 

// Interface Dependencies 

extern M C — " 

{ 

#include <string.h> 

} 

#ifndef _NODESUPPORT.H 
#include ” nodesupport . h” 

#endif 

// End Interface Dependencies 



TREENODE* root _find(TREENODEJinkedlist list_to_search, const char* str) 

/ / Summary * 

// 

/ / this function returns the address of the NODE in the list 
// that has its operator-name matching *str. 

II 

// End Summary 

{ 

si ist .iterator ret_node(list.tojsearch); 
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TREENODE* node; 
while (retjnodeQ) 

{ 

node = ret_node(); 

if ( !strcmp(str,node— ►getnameQ ) ) return node; 

} 

return NULL; 

} 



int strjsuffix_check(char* str,char ch) 

/ / Summary 

// 

/ / this function checks to see if the char at address str is ch 
II and that ch only appears in the string *str at this position. 

II Thus *str with ch = is of the form example with no more 
II periods ” . 

// 

/ / End Summary 

{ . 

if (*str ^ ch ) return 0; 

else // check for ”ch” in rest of string 

{ . 

if (strchr(str-fl, ch ) ) return 0; 
else return 1; 

} 

} 



int proper_super_string(char* strl, char* str2) 

// Summary 

// 

// This function checks to see if strl is a candidate to be a 
II child of str2 in the multi-way tree. 

// 

II End Summary 

{ 

// check to see if str2 is a prefix of strl 
if (strl / strstr(strl,str2) ) 
return 0; 
else 
{ 

char* loc = strl -f strlen(str2); 
return strjsuffix_check(loc , 

} 
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int proper jsuper_NODE_check(TREENODE* node_ptr, char* target -string) 

// Summary 

// 

// This functions checks to see if the NODE returned by 
// Listlterator should be added to the child Jist of the NODE 
II associated with target string. It return a 1 if it should. 

// 

II End Summary — 



{ 

return proper .super _string(node.ptr— ►getname(), target .string) ; 

} 
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// File Header 

// 

// .Filename ; protfunc.h 

//.SCCS ID ; 1.3 

//.Release No....: 1 

//.Dale ; 9/16/91 

// .Author ; Garry Lewis 

/ / : Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

#ifndef __PROTFUNC-H 
#def ine _PROTFUNC_H 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char protfuncJi_SccsId[| = "®(#)protfunc .h 1 . 3\t9/16/91" 

// Contents 

// 

// Prototypes for functions related to manipulating 
// instances of the class PROTOTYPE. 

// 

// End 

void list.prot Junc(int); 
void longJist_prot-func(int); 
void get_protJeader_func(int, char*); 
void get_prot_description_func(int, char*); 
void dump_protjsummary_func(int, char *); 
void retrieve _prot _date Junc(int, char*); 
void insert _prot_func(int, char*, char*, char*); 
void up date-prot deader _func(int, char*, char*); 
void update.prot-descJunc(int, char*, char*); 
void update_prot_nameJ*unc(int, char*, char*); 

// Description 

// 

// lisi-proLfunc 

// 

// Provide the name of prototypes in the design database. 

// 

// longJisEprot-func 

// 

/ / Provides a list of all prototypes , the default configuration 
// assigned to a prototype and the version number of the root 
// versioned object. 

// 

II get.protJeader.func 
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// 

// Provides the name of the leader assigned to a prototype . 

// 

// get-prot-descnption-func 

li 

// Provides the description of a given prototype. 

II 

II dump .pro t nummary. fun c 

// 

// Provides a summary of the prototype. Include creation date , 
II leader, default configuration, and a description. 

II 

/ / retrieve-proLdatejunc 

ii 

II Provides the creation date. 

// 

II insert-prot^func 

n 

II Creates a new prototype in the database. 

// 

/ / update.protJeader-func 

// 

// Changes the prototype leader’s name. 

II 

If update-prot-desc-func 

II 

II Changes the description of a prototype. 

// 

// updaie.proLnameJunc 

u 

II Changes the prototype name. 

II 

II End Description 

#endif // _ PROTFUNC.H 
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// File Header 

//•••• 

// .Filename : protfunc.cxx 

//.SCCS ID ; L3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char protfunc_cxx_SccsId[] = "O(#)protfunc . exx 1.3\t9/16/91 

// Contents 

// 

// list -prot June 
// long JisFprot June 
// get-protJeaderJunc 
// get-prot.descriptionjunc 
// dump -protsummary June 
// retrieve-proLdateJunc 
// insert.protjunc 
// update-protJeaderJunc 
// upd ate -prot-desc June 
// update -prot-name June 

n 

// End 

// Implementation Dependencies 

#ifndef _DDBDEFINES.H 
#include ”ddbdef ines .h” 

#endif 

#include <stream.hxx> 

#include <List.h> 

#include <Directory ,h> 



extern "C — " 

{ 

#include <sys/time.h> 
#include <sys/types .h> 

} 

#ifndef -PROTOTYPE JI 
#include "prototype .h” 
#endif 



// End Implementation Dependencies 



// Interface Dependencies 

#ifndef -PROTFUNC-H 
#include ”protfunc.h” 

#endif 

II End Interface Dependencies 

extern List *myPrototypeList; 
extern char tddbRootDir; 

PROTOTYPE *prototypePtr; 
ifstream inFile; 

void list.prot J*unc(int number .arguments) 

{ 

switch (number-arguments) 

{ 

case 0: 

{ 

OC-setWorkingDirectory(ddbRootDir); 
Listlterator my _iterate(my Prototy peList) ; 
while(myJterate.moreData()) 

{ 

cout (char *)myiterate() <C M \n"; 

} 

} 

break; 

default: 

cerr "<ERR0R: problem listing prototypes i 

} 

} 

void longJist.prot Junc(int number-arguments) 

{ 

char *proto_name — (char *)0; 
cliar *configname = (char *)0; 
switch (number-arguments) 

{ 

case 0: 

{ 

OCjsetWorkingDirectory(ddbRootDir); 

List &:protoReference = *myPrototypeList; 

List *proto_names = (List*)0; 
proto_names ~ new List(protoReference); 
Listlterator my_iterate(proto_names); 
while(myJterate.moreData()) 

{ 



database>\n"; 
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Directory *prototype_dir=(Directory*)0; 
char *proto_name = (char *)0; 
char *name = (char *)0; 
proto_name = (char *)my.iterate(); 
name = new char [strlen(proto_name)+5]; 
strcpy (name, proto jiame); 
strcat(name,"_dir"); 

prototype-dir = (Directory *)OCJookup(name); 
if (prototype_dir) 

OCjsetWorkingDirectory(prototype_dir); 
char *prototype_name = new char [strlen(proto_name)-f 5]; 
strcpy(prototype_name,proto_name); 
strcat(prototype_name,PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypePtr) 

{ 

CONFIGURATION *configPtr; 

configPtr = prototypePtr— ►getDefaultConfigurationQ; 
if (configPtr) 

{ 

configname =new char [strlen(configPtr— ^name()+l)]; 
strcpy(configname, configPtr— *name()); 

} 

else 

{ 

configname =new char [5]; 
strcpy(configname,"NONE"); 

} 

cerr <C "Name: "; 

cout < protojiame; 
int i=0; 

for (i=0;i<(PRINT_CONFIG_LOCATION-strlen(proto_name));i++) 
cout < M M ; 

cerr "Default Config: 
cout -C configname; 

for (i=0;i<(PRINT.VERSION_LOCATION- 

(PRINT_CONFIG_LOCATION+strlen(configname)));i++) 

cout < M 

cerr <C "Version: "; 

V -OBJECT *vobjectPtr = prototypePtr— ►getVobjectQ; 
if (vobjectPtr) 

{ . . . 

int version = vobjectPtr— +getVersionNumber(); 
cout C version -C M \n";; 

} 

else 

cout < "NONE \n"; 
delete name; 
delete configname; 

} 
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} 

break; 

default: 

cerr <C M <ERROR: problem long listing prototypes in database>\n M 

} 

} 

void get-prot Jeader_func(int number-arguments, char *argl) 

{ 

switch (number^arguments) 

{ 

case 1: 

char *prototype-name = new char [strlen(argl)+5]; 
strcpy(prototype_name,argl); 
strcat(prototype_name,PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC Jookup(prototype_name); 
prototypePtr — ► getPrototypeLeader(); 
break; 
default: 

cerr <C "<ERROR: extra arguments in get description call\n"; 

} 

} 



void get-prot.description_func(int number-arguments, char *argl) 

{ 



switch (number^arguments) 

{ 

case 1: 

char *prototype_name = new char [strlen(argl)+5]; 
strcpy (prototype-name, argl); 
strcat(prototype_name,PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC Jookup(prototype_name); 
prototypePtr — ► getPrototypeDescriptionQ; 
break; 
default: 

cerr <C "<ERROR: extra arguments in get description call\n M ; 

} 

} 

void dump_protjsummary-func(int number-arguments, char *argl) 

{ 



switch (number-arguments) 

{ 

case 1: 

char *prototype-name = new char [strlen(argl)+5]; 

strcpy (prototype-name, argl); 

strcat(prototype_name,PROTOTYPE_EXT); 

prototypePtr = (PROTOTYPE*)OC _lookup(prototype_name); 
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prototypePtr — ► dumpPrototypeSummary(); 
break; 
default: 

cerr <C "<ERR0R: extra arguments in dump Prototype Summary call\n"; 

} 

} 



void retrieve _protjdate_func(int number .arguments, char *argl) 

{ 

switch (number arguments) 

{ 

case 1: 

char ♦prototype .name = new char [strlen(argl)+5]; 

strcpy(prototype Jiame,argl); 

strcat(prototype Jiame, PROTOTYPE .EXT); 

prototypePtr = (PROTOTYPE*)OCJookup(prototype jiame); 

if (prototypePtr) 

{ 

time.t protTime = prototypePtr — ► getProtCreationDate(); 
cout < ctime(fcprotTime) <C "\n"; 

} 

else 

{ 

cerr <C M <Prototype " <C argl " not found>\n M 

<C "<find prototype creation date operation aborted>"; 

} 

break; 

default: 

cerr M <ERR0R: invalid number args for prototype time retrieval>\n M 

} 

} 



void insert_prot _func(int number.arguments, char ♦argl, char *arg2, char *arg3) 

{ 

char ♦prototypejiame = new char [strlen(argl)+5]; 
strcpy (prototype Jiame, argl); 
strcat(prototype Jiame, PROTOTYPE .EXT); 

prototypePtr = (PROTOTYPE *)OCJookup(prototype Jiame); 
if (IprototypePtr) 

{ 

switch (number_arguments) 

{ 

case 1: 

prototypePtr = new PROTOTYPE(prototype Jiame); 

OC-setWorkingDirectory(ddbRootDir); 

myPrototypeList — ► Insert(argl); 

myPrototypeList — ► putObject(); 

break; 
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case 2: 
case 3: 

prototypePtr = new PROTOTYPE(prototype_name, arg2); 
inFile.open(arg3, ios::in); 
if (inFile) 

prototypePtr — + updatePrototypeDescription(arg3, inFile); 
OCjsetWorkingDirectory(ddbRootDir); 
myPrototypeList — ► Insert(argl); 
myPrototypeList — ► putObject(); 
inFile. close(); 
break; 
default: 

cerr -C "<ERR0R: invalid number args lor insert prototype>\n M 

} 

} 

else 

{ 

cerr <C "<N0TE: " <C argl " already exists ! >\n"; 
return; 

} 

} 



void update4>rot deader _func(int number^arguments, char *argl, char *arg2) 

{ 

switch (number-arguments) 

{ 

case 2: 

char *prototype_name = new char [strlen(argl)+5]; 
strcpy (prototype .name, arg 1 ) ; 
strcat(prototype-name,PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC Jookup(prototype-name); 
prototypePtr — ► changePrototypeLeader(arg2); 
break; 
default : 

cerr <C M <ERR0R: invalid number axgs for update Leader>\n"; 

} 

} 



void update_prot_desc_func(int number .arguments, char *argl, char *arg2) 

{ 

switch (number .arguments) 

{ 

case 2: 

{ 

inFile.open(arg2,ios::in); 
if (linFile) 

{ 

cerr "File with description contents does not exist\n M 
< "Aborting prototype updateLdescription\n"; 
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} 

else 

{ 

char *prototype_name = new char [strlen(argl)+5]; 

strcpy (prototype jiame ,arg 1 ); 

strcat(prototypemame,PROTOTYPE_EXT); 

prototypePtr = (PROTOTYPE*)OC Jookup(prototype_name); 

prototypePtr — ► updatePrototypeDescription(arg2,inFile); 

inFile.close(); 

} 

break; 

} 

default: 

cerr <C "<ERROR: invalid number args for update description>\n H 

} 



void update_prot JiameJ*unc(int number-arguments, char targl, char *arg2) 

{ 

switch (number-arguments) 

{ 

case 2: 

char *prototype_name = new char [strlen(argl)+5]; 
strcpy (prototype _name,argl); 
strcat(prototypejiame,PROTOTYPE_EXT); 
char *new-prototype_name = new char [strlen(arg2)+5]; 
strcpy (new prototype jiame, arg2) ; 
strcat(new_prototype mame,PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC Jookup(prototype-name); 
prototypePtr — ► changePrototypeName(new_prototype_name); 
break; 
default: 

cerr <C M <ERR0R: invalid number axgs for update Name>\n"; 

} 
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// File Header 

// •• 

// .Filename ; prototype. h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

/ / ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

#if ndef -PROTOTYPE.!! 

#def ine -PROTOTYPED 

// SCCS ID follows: will compile to place date/time stamp m 
// object file 

static char prototype_h.SccsId[) = M Q(#)prototype . h 1 . 3\t9/16/91 M ; 

// Contents — 

1/ 

II PROTOTYPE 

II 

// Description 

// 

II Defines class PROTOTYPE. 

II 

II End 



// Interface Dependencies 

#include <Object.h> 

#include <Dict ionary .h> 
#include <Ref erence .h> 
#include ”Ref erenceMacros .h” 

extern "C — " 

{ 

#include <sys/time.h> 
#include <sys/types .h> 

} 

#if ndef _TEXT.OBJECT_H 
#include ”text.obj ect .h” 
#endif 

#ifndef -CONFIGURATION JI 
#include ” configuration .h” 
#endil 
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TypeCheckReference(ConfDictReference, Reference, Dictionary); 
TypeCheckReference(TextObjectReference, Reference, TEXT .OBJECT); 
TypeCheckReference(DefaultConfReference, Reference , CONFIG URATION) ; 

// End Interface Dependencies 

#def ine DEFAULT .NAME 

// Class // 

class PROTOTYPE : public Object 

{ 

private: 

char ♦protleader; 
int protDictlndex; 
time.t protCreationDate; 

TextObject Reference protdescription; 

ConfDictReference prot .configuration .list; //points to a Dictionary 
DefaultConfReference prot .default. configuration; 

public: 

PROTOTYPE(APL ♦); 

PROTOTYPE(char ♦prototype.name, 

char ♦prototype Jeader=DEFAULT .NAME); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual Type *getDirectType(); 
char ♦getName(); 
char *getConfigName(); 
void getPrototypeName(); 
void getPrototypeLeader(); 
void getPrototypeDescription(); 

void changePrototypeName(char tnew.prototypejiame); 
void changePrototypeLeader(char ♦new.prototypeJeader); 
void updatePrototypeDescription(char+, ifstream&); 
void dumpPrototypeSummary(); 

void addConfiguration(CONFIGURATION ♦configuration); 
void listConfigurationsQ; 
time.t setProtCreationDate(); 
time.t getProtCreationDateQ; 
void getDefaultConfigName(); 

CONFIGURATION ♦getConfiguration(char ♦); 

CONFIGURATION ♦getDefaultConfiguration(); 

V.OBJECT ♦getVobjectQ; 

-PROTOTYPE() { Destroy (FALSE); } 



}; 

// Description 

II 

II Defines a PROTOTYPE class. 
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// 

// Constructor 

n 

// prototype -APL 

H 

/ / ONTOS required constructor 

// 

/ / prototype 

// 

II Constructs a prototype object from the given name , 

// and optional team leader of the prototype . 

// 

// Public Members 

// 

II Destroy 

// 

II used to cleanup memory during deletion and aborts. 

// 

II getDirectType 

!/ 

II Return the ONTOS Type of class PROTOTYPE. 

// 

If getName 

II 

II Returns a character string containing the name of the prototype 

// 

II getConfigName 

// 

II Returns a character string containing the last configuration 
II worked on by a user 

II 

II getPrototypeName 

// 

II Prints the prototype name to standard output 

// 

II getPrototypeLeader 

// 

II Displays the prototype designer team leader’s name. 

// 

II getPrototypeProtdescription 

n 

II Displays a protdescripiion of the prototype. 

n 

II changePrototypeName 

n 

II Change the name of the prototype. 

il 

II changePrototypeLeader 

u 

II Change the prototype leader’s name. 

il 
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/ / updatePrototypeProtdescription 

// 

// Adds a proidescription to a PROTOTYPE object. 

II 

II dumpPrototypeSummary 

1/ 

II Provides date created , leader, default configuration, 

II and description of a prototype. 

// 

II addConfiguration 

// 

II Adds a configuration with a given name to the prototype 

// 

II listConfigurations 

// 

II List the names of all the configurations in the prototype. 

// 

II getDefaultConfigName 

// 

II Displays the name of the default configuration. 

// 

II getConfiguration 

// 

II Used by this class as a support function to update the default 
II configuration. 

// 

II get Default Configuration 

// 

II returns a pointer to the default Configuration 

// 

II getVobject 

1/ 

II returns the most current root V-OBJECT (Operator or Type) 
II associated with a prototype. 

// 

/ / ~ prototype 

II r 

II The class destructor. 

// 

// End 

#endil // _ PROTOTYPEJJ 
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// File Header 

//•••• •• 

// .Filename ; prototype. cxx 

//.SCCS ID ; 1.8 

// .Release No....: 1 

//.Date : 9/16/91 

// .Author : Garry Lewis 

// ; Drew Dwyer 

// .Compiler : Glockenspiel C++ 2.1 

II •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char prototype_cxx_SccsIdQ = M «(#)prototype . cxx 1 . 3\t9/16/91 M ; 

// Contents 

// 

// PROTOTYPE-PROTOTYPE ONTOS constructor 
// PROTOTYPE-PROTOTYPE constructor 
// PROTOTYPE::Destroy 
// PROTOTYPEr.getDirectType 
// PROTOTYPE: :getName 
// PROTOTYPEr.getConfigName 
// PROTOTYPE::getPrototypeName 
// PROTOTYPEr.getPrototypeLeader 
/ / PROTOTYPE::getPrototypeDescription 
/ / P ROTOTY P E: :changePrototypeN ame 
// PROTOTYPE::changePrototypeLeader 
/ / P ROTOTY P E: :updatePrototypeDescriptxon 
/ / PROTOTYPEr.dumpPrototypeSummary 
// P ROTOTY PEr.addConfiguration 
// P ROTOTY P E: ^^Configurations 
// PROTOTYPE: :setProtCreationDate 
// P ROTOTY PE: :getProtCreationDate 
// PROTOTYPE::getDefaultConfigName 
// PROTOTYPE::getConfiguration 
// P ROTOTY PEr.getDefaultConfiguration 
// PROTOTYPE: :get Vobject 
// 

// Description 

u 

// Implementation of class PROTOTYPE member functions. 

// 

// End 

// Interface Dependencies 

#include <GlobalEntities .h> 

#include <Directory .h> 
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#include <stream.hxx> 



extern M C — M 

{ 

#include <sys/time ,h> 
#include <strings.h> 

} 

#ilndef -PROTOTYPE _H 
tinclude ” prototype .h” 

# end it 



// End Interface Dependencies 

extern Type *PROTOTYPE_OType; 
extern Type *CONFIGURATION_OType; 

// ONTOS required constructor // 

PROTOTYPE::PROTOTYPE(APL ttheAPL) : (theAPL) 

{ 

}; 



// New Instance Constructor // 

PROTOTYPE: :PROTOTYPE(char *prototype_name, 

char *prototypeJeader) : (prototype_name) 



// Summary 

// 

// Constructs a persistent prototype object. A PROTOTYPE object 
II contains general management information about a prototype and 
II a reference to a container holding configuration objects. 

// 

II Parameter 

// 

II prototype-name 

// 

II A pointer to a character string. 

// 

II prototype-leader 

// 

II A pointer to a character string. 

// 

II Functional Description 

II 

II Passes the object name to class Object. Copies the leader’s name 
II into private data members. We initialize the description to null 
II and create a dictionary to hold various configurations. 

// 
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// End 



{ 

initDirectType(PROTOTYPE.OType); 

protleader = new char[strlen(prototypeJeader)+l]; 
strcpy(protleader, prototypeJeader); 
protDictlndex = 0; 

protCreationDate = setProtCreationDate(); 

protdescription.initToNull(); 
prot.default .configuration. initToNullQ; 

if(!CONFIGURATION.OType) 

{ 

CONFIGURATION.OType = (Type*)OC Jookup("CONFIGURATIOH"); 

} 

Dictionary *new_configuration = new Dictionary(OC.integer, 

CONFIGURATION.OType, 
TRUE, FALSE); 

new.configuration — ►putObject(); 

prot_configurationJist.Reset(new_configuration, this); 
putObject(); 

} 

// End Constructor PROTOTYPE-PROTOTYPE // 

// Member Function // 

void PROTOTYPE::Destroy(Boolean aborted) 

{ 

delete protleader; 
if (aborted) 

{ 

Object:: Destroy (aborted); 

} 

} 

Type* PROTOTYPE::getDirectType() 

// Summary 

// 

// returns the ONTOS Type for the prototype class. 

// 

II Return value 

n 

//A pointer to an ONTOS Type. 

II 

1 1 End 
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{ 

return PROTOTYPE_OType; 

} 

char * PROTOTYPE::getName() 

// Summary 

// 

// returns the name of the prototype 

// 

// Return value 

II 

// A pointer to a character string 

// 

// End 



{ 

Directory *directory=(Directory *)0; 
char *name=(char *)0; 
char *temp=(char *)0; 

if(!this) 

{ 

cerr -C M <ERR0R: cannot get the name of a null PR0T0TYPE>\n"; 
return NULL; 

} 

else 

{ 

name = NameQ; 

OC_getNameComponents(name, ^directory, fename); 
temp = new char [strlen(name)-bl]; 
temp = strtok(name," . "); 
return temp; 

} 

} 

void PROTOTYPE::getPrototypeName() 

// Summary 

// 

// Displays the name of the prototype 

II 

/I Return value 

n 

II Displays the Prototype Name and a linefeed to the stdout 

// 

II End 



{ 

Directory ^directory; 
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char ♦name; 



if(!this) 

{ 

cerr <C "<ERROR: cannot get the name of a null PROTOTYPE>\n"; 
return; 

} 

else 

{ 

name = Name(); 

OC_getNameComponents(name, ^directory, fcname); 
cout <C name "\n M ; 

} 



void PROTOTYPE: :getPrototypeLeader() 

/ / Summary 

// 

// Displays the name of the prototype leader 

// 

II Return value 

// 

// Displays the Prototype leader and a linefeed to the stdout 

II 

II End 



if(!this) 

{ 

cerr <C *‘<ERROR: cannot get the leader's name of a null PROTOTYPE>\n‘' 
return; 

} 

cout <c protleader <C H \n"; 

} 

void PROTOTYPE: :getPrototypeDescription() 

// Summary 

// 

II Displays the prototype description 

II 

II Return value 

II 

/ / Displays description to stdout if a description exists 

II 

I / End 

{ 

if(!this) 
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{ 

cerr <C "<ERROR: cannot get the description of a null PROTOTYPE>\n"; 
return; 

. } 

if(!protdescription) 

{ 

cerr M <This prototype does not contain a description>\n M ; 
return; 

} 

else 

{ 

TEXT-OBJECT* myTextObjPtr = (TEXT -OBJECT*) protdescription.Binding(this); 
myTextObjPtr — ♦ text(cout); 

} 



void PROTOTYPE: :changePrototypeName(char *new_prototype jiame) 

// Summary 

// 

// Changes the prototype name 

// 

// Parameter 

II 

II new-prototype.name 

II 

II a character string pointer containing the new name 

// 

/ / Return value 

// 

II N/A 

II 

II End 



if(!this) 

{ 

cerr <C M <ERR0R: cannot set the name of a null PR0T0TYPE>\n"; 
return; 

} 

N ame(new_prototy pe_name) ; 

} 

void PROTOTYPE::changePrototypeLeader(char *new_prototype deader) 

// Summary 

// 

II changes the prototype leader 

// 

II Parameter 
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// 

// new.prototypeJeader 

// 

// a character string pointer containing the new leader’s name 

// 

II Return value 

// 

// N/A 

II 

// End 



{ 

if(!this) 

{ 

cerr "<ERROR: cannot change the leader of a null PRGTOTYPE>\n M ; 
return; 

} 

delete protleader; 

protleader = new char[strlen(new .prototype Jeader)-f 1]; 
strcpy (protleader, new.prototypeJeader); 
putObjectQ; 

} 

void PROTOTYPE::updatePrototypeDescription(char *fileName, ifstreamfc input Jilejstream) 
// Summary 

II 

II changes the prototype description 

// 

II Parameter 

II 

// fileName 

// 

1 1 a character string pointer containing the new name of 
// the file containing the new description . 

// 

// input -file. stream 

II 

II the file handle of the input description file. 

II 

II Return value 

II 

// N/A 

II 

II End 

{ . 

if (Iprotdescription) 

{ 

TEXT-OBJECT *textObjectPtr = new TEXT .OBJ ECT(); 
textObjectPtr — ► append(fileName, input Jile-stream); 
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protdescription.Reset(textObjectPtr, this) ; 
putObjectQ; 

} 

else 

{ 

TEXT-OBJECT *textObjectPtr = (TEXT JOB JECT*) protdescription.Binding(this); 

textObjectPtr — > resetTheText(); 

textObjectPtr — > append(fileName, input Jilejstream); 

putObject(); 

} 



void PROTOTYPE: :dumpPrototypeSummary() 

{ 

// Summary 

// 

// Displays the date created , leader, default config, and 
// description of a prototype to stdout 
II 1 item per line ending with the ( potentially ) multi-line 
II description. 

// 

II Parameter 

// 

um 

n 

/I Return value 

// 

II n/a 

II 

// End 

time-t creationdate = 0; 

creationdate = getProtCreationDate(); 

cerr <C ’’Creation Date: 

cout ctime(&creationdate) "\n M ; 

cerr ’’Leader: 

getPrototypeLeader(); 

cerr <C"Default Config: M ; 

getDefaultConfigName(); 

cerr <C "Prototype Description 

follows : \n==============================\n\n" ; 

getPrototypeDescription(); 

} 

void PROTOTYPE::addConfiguration(CONFIGURATION ^configuration) 

{ 



// Summary 

// 

// adds a configuration to the prototype 
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// 

// Parameter 

// 

// configuration 

// 

// a pointer to the configuration to be added to the 
II prototype. 

// 

// 

II Return value 

n 

II N/A 

II 

// End 

if(!this) 

{ 

cerr <C M <ERROR: cannot set the description of a null PRGTOTYPE>\n"; 
return; 

. } 

if( [configuration) 

{ 

cerr <C M <ERR0R: cannot give to a PROTOTYPE a null conf iguration>\n M 
return; 

} 

else 

{ 

protDictlndex = protDictlndex 4- 1; 

Dictionary*confDictionaryPtr= 

(Dictionary*)prot_configuration_list.Binding(this); 
confDictionaryPtr — ► Insert(protDictIndex, (Entity #)configuration); 
confDictionaryPtr — putObject(); 
prot_default_configuration.Reset(configuration, this); 
putObject(); 

} 



void PROTOTYPE::listConfigurations() 

// Summary 

// 

II Display the configuration names contained in this prototype 
// to stdout. 1 configuration / line. 

// 

II Parameter 

II 

II N/A 

II 

II Return value 

// 

UN/ A 
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// 

// End 



{ 

CONFIGURATION *the_configuration; 
char *name; 

Directory ^directory; 



if(!prot_configuration_list) 

{ 

cerr <gi "<ERR0R: cannot return a prototype from an empty list>\n" 
return; 

} 

Dictionary tconfDictionaryPtr = 

(Dictionary *)prot_configuration_list.Binding(this); 

Dictionarylterator configlist Jterator(confDictionaryPtr); 

while(the_configuration =(CONFIGURATION*)(Entity*)configlist Jterator()) 

{ . 

if (name = the_configuration— +Name()); 

{ 

OC_getNameComponents(name, ^directory, fename); 
cout name "\n"; 

} 

} 

} 

//Member Function // 

time.t PROTOTYPE: :setProtCreationDate() 

// Summary 

// 

// sets the creation date to system date at time of this call . 

// 

// Parameter 

// 

n m 

u 

j / Return value 

// 

// timeA as a default long value containing the system time 
// This function as a byproduct updates the protCreationDate 
// attribute field. 

// 

// End 



{ 

time.t mytloc=0; 
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time.t theTime; 

return theTime = time(mytloc); 

} 

// End 



// Member Function // 

time.t PROTOTYPE: rgetProtCreationDateQ 

// Summary 

// 

// Returns the prototype’s creation date 

n 

// Parameter 

n 

II n/a 

II 

II Return value 

II 

// time.t as a long value containing the system time 

II 

// End 



return protCreationDate; 

} 

// End 



void PROTOTYPE::getDefaultConfigName() 

// Summary 

// 

II Displays the default Configuration name for this prototype 
/ 1 to stdout 

II 

// Parameter 

// 

// N/A 

II 

1/ Return value 

// 

// N/A 

II 

U End 

{ 

Directory *directory; 
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char tname; 



if(!prot.default_configuration) 

{ 

cerr <C M \n\n<No configurations are contained in this prototype . >\n\n" 

} 

else 

{ 

CONFIGURATION *the_configuration = 

(CONFIG URATION*)prot_default_configuration.Binding(this); 
name = the.configuration — ► Name(); 

OC_getNameComponents(name, ^directory, fcname); 
cout <C name < M \n"; 

} 

} 

char * PROTOTYPE::getConfigName() 

{ 



// Summary 

// 

// Returns a character string pointer to an area in memory 
// containing the name of the default Configuration name 
II for this prototype. 

// 

If Parameter 

// 

// N/A 

II 

II Return value 

// 

II character string pointer 

// 

II End 

Directory *directory; 
char *name; 

if(!prot_default_configuration) 

{ 

cerr "<Ho configurations are contained in this prototype . >\n\n"; 
return NULL; 

} 

else 

{ 

CONFIGURATION *the_configuration = 

(CONFIGURATION*)prot_default_configuration.Binding(this); 
name = the.configuration — ► NameQ; 

OC_getNameComponents(name, ^directory, tname); 
return name; 

} 
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} 

CONFIGURATION *PROTOTYPE::getConfiguration(char *confName) 

// Summary 

// 

// Used by this class as a support function to update the default 
// configuration. 

// 

II Parameter 

li 

II confName 

// 

II configuration name to lookup the default configuration 
II for this prototype 

il 

II Return value 

li 

/ / Configuration pointer if successful. Null pointer if 
// failed. 

1/ 

II End 



{ 

CONFIGURATION *myConfPtr = (CONFIGURATION *)OCJookup(confName) 
if (myConfPtr) 

{ ' 

return myConfPtr; 

} 

else 

{ 

return (CONFIGURATION*)!); 

} 



CONFIGURATION *PROTOTYPE::getDefaultConfiguration() 

/ / Summary 

// 

/ / Returns the default configuration for this prototype. 

II The last configuration worked on. 

// 

II Parameter 

// 

n m 

// 

II Return value 

1/ 

II Configuration pointer if successful. Null pointer if 
II failed. 

II 
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// End 



{ 

CONFIGURATION *the.configuration ^CONFIGURATION *)0; 

if(!prot_default_configuration) 

{ 

return NULL; 

} 

else 

{ 

the.configuration = 

(CONFIGURATION*)prot_default_configuration.Binding(this); return theLConfiguration; 

} 



V .OBJECT *PROTOTYPE::getVobject() 

// Summary 

// 

// This method assumes that the root versioned object (V-OBJECT) 
// has the same name as the prototype. If this is not the case 
II then this function will not work. Taking the prototype name , 

// a thread lookup is performed and the most current V-OBJECT 
II in the thread is returned. 

u 

II Parameter 

// 

II n/a 

II 

II Return value 

il 

II V.OBJECT pointer if successful. Null pointer if 
II failed. 

// 

U End 



{ 

THREAD *threadPtr=(THREAD*)0; 

char *name = new char [strlen(getName())+l]; 

strcpy(name,getName()); 

threadPtr = (THREAD *)OCJookup(name); 

if (threadPtr) 

{ 

V.OBJECT *vobjectPtr = threadPtr— ►current(); 
if (vobjectPtr) 

return vobjectPtr; 
else 
{ 

return NULL; 

} 
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} 

else 

{ 

return NULL; 

} 

} 

// end functions 
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// File Header 

//••••• 

// .Filename : queue. h 

//.SCCS ID : 1.3 

/ /.Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

#ifndef _QUEUE_H 
#define __QUEUE_H 

// SCCS ID follows: will compile to place date/time stamp in 
/ / object file 

static char QUEUE.h_SccsId[| = "®(#)queue.h 1 . 3\t9/16/91"; 
// Contents 

n 

H QUEUE 

II 

// Description 

// 

II IMPLEMENTS class QUEUE CONSTRUCTORS. 

II 

U End : 

// Interface Dependencies 

1/ 



#include <iostream.hxx> 

extern M C — "{ 

#include <stdio.h> 

#include <string.h> 

} 

// 

// End Interface Dependencies 

// Description 

// 

// Defines the slink , slist, slist.it er at or , 

// treenodeJinkedlist, and treen ode. queue classes 

// 

// 

// There are no ontos mechanisms in these classes. The primary 
// purpose of these classes is to provide the support structures 
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// of linkedJists and queues in order to process the CAPS 
// PROTOTYPE subdirectory. 

// 

II As a subdirectory is read , each file is analzed to determine 
/ / whether it is an operator/type. If found to belong to 
1 1 an operator which might version , the operator and operator 
II information is placed into a multi-way tree parrallelling the 
II decomposition of an operator in the CAPS system. The 
/ / TREENODES are then compared against operator structures in 
If the Ontos Database in other programs documented elsewhere. 

// 

/ / These structures are simple in nature and can be found in 
II any good C++ textbook. These particular examples came from 
II Bjame Stroustrup f s C++ Programming Language textbook (pg 203). 
II Please refer to the textbook for further explanation of the 
II data structures and how they are manipulated. 

// 

// End 

class TREENODE; 
class slist; 
class slistiterator; 

class slink { 

friend class slist; 
friend class slistiterator; 

private: 

slink* next; 

TREENODE * e; 
slink(TREENODE * a, slink* p); 

}; 



class slist { 

friend class slistiterator; 
private: 

slink* last; // last-> next is head of list 
public: 

slistQ; // { last = NULL; } 
slist(TREENODE * a); 

int insert(TREENODE * a); // add at head of list 
int append(TREENODE * a); // add at tail of list 
TREENODE * get(); // return and remove head of list 
void clear(); // remove all links 
int empty(); // returns 1 if list is empty 
— slist(); 1/ { clearQ; } 

}; 
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class slist_iterator{ 

private: 

slink* ce; 
slist* cs; 

public: 

slist .iterator (slist& s); 
TREENODE * operatorQQ; 



class TREENODEJinkedlist : public slist 

{ 

public: 

TREENODE JinkedlistQ; 
int member(char *name); 

}; 



class TREENODELqueue : private slist 

{ 

public: 

TREENODE.queue(){} 

void put(TREENODE * a) {append(a); } 

slist::empty; 

slist: :get; 

}; 

#endif // QUEUE Class header 
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// File Header 

•• 

// .Filename ; queue, cxx 

1 1, SCCS ID ; 1.3 

II .Release No....: 1 

//.Date ; 9/16/91 

// .Author : Garry Lewis 

II : Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
II object file 

static char QUEUE_cxx_SccsId[] = "C(#)queue. cxx 1 .3\t9/16/91” 

// Contents 

// 

// QUEUE 

II 

II Description 

// 

II IMPLEMENTS class QUEUE CONSTRUCTORS. 

II 

II End 

// Interface Dependencies 

// 

#ifndef _QUEUEJI 
#include ” queue. h” 

#endif 

// 

II End Interface Dependencies 



// X X X X -X 

II these are the implementation methods of classes 
II slink, slist, slistJteraior, and TREENODEJinkedlisi 
II -X X X X -X 

/ 1 X X A' X X 

II 

II slink methods 

II 

II -X X X X -X 



slink::slink(TREENODE * a, slink* p) 

{ 

e = a; 
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next = p; 



} 

// X X X A' X 

II 

// slist methods 

II XX X X X 

slist: :slist() 

{ 

last = NULL; 

} 

slist::slist(TREENODE * a) 



last = new slink(a,NULL); 
last — ► next = last; 

} 

int slist: :insert(TREENODE * a) 

{ 

if (last) 

last— ►next = new slink(a, last— ►next); 
else { 

last = new slink(a,NULL); 
last — ► next = last; 

} 

return 0; 

} 

int slist::append(TREENODE * a) 

{ 

if (last) 

last = last — ► next = new slink(a, last— ►next); 
else 
{ 

last = new slink(a,NULL); 
last — ► next = last; 

} 

return 0; 

} 

TREENODE * slist::get() 

{ 

// improve the following line for better error detection 
if (last == NULL) cout << "get Irom empty slist\n M ; 
slink* f = last— ► next; 

TREENODE * r = f-+e; 
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if (f == last) last = NULL; 
else last —►next = f— ►next; 
delete f; 
return r; 

} 

void slist::clear() 

{ 

slink* 1 = last; 
if ( 1 == NULL ) return; 
do 
{ 

slink* 11 = 1; 

1 = 1— ► next; 
delete 11; 

} while (1 ^ last); 

} 

int slist::empty() 

{ 

if (last == NULL) return 1; 
else return 0; 

} 

slist : :~slist() 

{ 

clear (); 

} 



// A' X X X X 

II 

/ / slist iterator methods 

// 

II X X X X X 

slist iterator: :slist iterator(slist& s) 

{ 

cs = &s; 

ce = cs — ► last; 

} 

TREENODE *slistJterator::operator()() 

{ 

TREENODE * ret = ce ? (ce = ce — ► next) — ► e : NULL; 
if ( ce == cs —►last) ce = NULL; 
return ret; 

} 
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// X A' A' A' A' 

// 

// TREENODE Jinked list methods 

// 

// A X X X -X 

TREENODE Jinkedlist::TREENODE JinkedlistQ 

{ 

} 

int TREENODE Jinkedlist::member(char *name) 

{ 

char *temp = name; 
return 1; 

} 
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// File Header 

// •• 

If .Filename ; text-object. h 

/I. SCCS ID : 1.3 

// .Release No....: 1 

/ /.Date ; 9/16/91 

// .Author ; Garry Lewis 

II ; Drew Dwyer 

/ / .Compiler ; Glockenspiel C +- h 2.1 

// •• 

// End header comments 

#ifndef .TEXT-OBJECT _H 
#define _TEXT.OBJECTJI 

// SCCS ID follows: will compile to place date/lime stamp in object file 

static char text.object _h_SccsId[] = "C(#)text_object .h 1 . 3\t9/16/91" 

// Contents 

// 

// TEXT.OBJECT 

II 

/ / Description 

// 

II Defines class TEXT.OBJECT. 

II 

II End 

// Interface Dependencies 

// SCCS ID follows: will compile to place date/time stamp in object file 

II Interface Dependencies 

#include <0bject.h> 

#include <stream.hxx> 

// End Interface Dependencies 



class TEXT.OBJECT : public Object 

{ 

private: 

char *theJile_name; 
char *the_text; 
public: 

TEXT.OB J ECT( APL *); 
TEXT.OBJECTQ; 

void Destroy (Boolean aborted=FALSE); 
Type *getDirectType(); 
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void append(char *, ifstream&); 
void append(char *); 
void append (ifstream&); 
void text(ostream&;); // standard output 
Boolean rebuildTextFile(char*); 
void displayFileName(); 
char *getFileName(); 
char *text(); 
void resetTheText(); 

~TEXT.OBJECT() { Destroy(FALSE); } 

}; 

// Description 

il 

// Defines a TEXT-OBJECT class. The class TEXT-OBJECT is a derived 
II class of Object . 

1/ 

II Constructor 

// 

/I TEXT-OBJECT - APL 

II 

II ONTOS required constructor 

// 

// TEXT-OBJECT 

II 

II Creates a new instance of TEXT-OBJECT 

II 

II Public Members 

ii 

If Destroy 

// 

II ONTOS required method. 

II 

II getDirectType 

// 

II ONTOS rquired method used to return the class Type . 

// 

II append 

ii 

II Reads in a text file. 

// 

II append 

// 

/ / Read in a string append to existing string in log fashion. 

II 

II text 

// 

II Send the text contents to standard output. 

// 

// rebuildTextFile 

// 
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// Write the contents of a text object to a file . 

// 

// display FileName 

u 

/! Send the file name to standard output. 

// 

II getFileName 

// 

II Return a pointer the file name contained in the text object. 

// 

II text 

// 

II Returns a pointer to the text contained in the text object. 

// 

II resetTheText 

ll 

II Set the text field to a empty string. 

II 

// ~TEXT.OBJECT 

II 

II class destructor. 

II 

II End Description 

#endil / / -TEXT.OBJECT.H 
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// File Header 

// •• 

// .Filename : text-object, cxx 

//.SCCS ID ; 1.3 

//.Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C +- h 2.1 

// •• 

// End header comments 



// SCCS ID follows: will compile to place date/time stamp 
// in object file 

static char compositeLCXx_SccsId[| = M C(#)text_object . exx 1 . 3\t9/16/91" 

// Contents 

1 / 

// T EX T.OB JE CT:: T EX T.OBJECT Ontos Constructor 

II T EX T.OBJECT:: T EX T. OBJECT 

II TEXT.OBJECTr.Desiroy 

II TEXT-OBJECT::getDirectType 

II TEX T.OBJECT: -.append 

II TEXT.OBJECTr.append 

II TEXT-OBJECT:: append 

II TEXT.OBJECTr.text 

/ / TEXT-OBJECT::rebuildTextFile 

II TEX T.OBJECT: .'display FileName 

1 1 TEXT-OBJECT::getFileName 

II TEXT.OBJECTr.text 

II TEXT.OBJECTrresetTheText 

II 

// Description 

// 

// Implementation of class TEXT-OBJECT member functions. 

// 

II End 

// Interface Dependencies 

#include <strstream. hxx> 

#ifndef _TEXT_OBJECT_H 
#include ” text-object .h” 

# end if 



#if ndef _TRACER_H 
#include ” tracer. h” 
#endif 
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#ifndef _DDBDEFINES-H 
#include ’’ddbdei ines .h” 

#endif 

extern "C — M 

{ 

#include <stdio.h> 

#include <sys/time.h> 

#include <sys/types .h> 

#include <stdlib.h> 

#include <strings.h> 

} 

// End 

extern Type *TEXT_OBJECT_OType; 
extern char *dirNamePtr; 

TEXT .OBJ ECT::TEXT.OBJECT(APL ♦theAPL) : Object(theAPL) 

// Summary 

// 

// Onios Required Constructor 

// 

II Return value 

II 

II A TEXT-OBJECT object 

II 

// End 



{ 

}; 



TEXT JDB J ECT: :TEXT JDB J ECT( ) 

// Summary 

// 

II Constructor 

// 

II Return value 

II 

II A TEXT-OBJECT object 

II 

II the-file-name and the.text attributes are initialized to NULL; 
1 1 End 



{ 

the_text=new charfl]; 
strcpy(the.text, M "); 
the_file_name — new char[l]; 
strcpy(the -filename, 
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putObjectQ; 

}; 

void TEXT-OBJECT::Destroy(Boolean aborted) 

// Summary 

// 

// Constructor 

// 

// Return value 

n 

// A TEXT.OBJECT object 

II 

II the.file.name and the.tezt attributes are initialized to NULL; 
/ / End 

{ . 

if(theJilejiame); 
delete the-file-name; 
delete the.text; 
if( aborted) 

{ 

Object “Destroy (aborted); 

} 

}; 

Type *TEXT_OBJECT::getDirectType() 

// Summary 

ii 

II Ontos required method which returns the type of this object . 

// 

II Parameter 

// 

II If/A 

II 

II Return Value 

// 

II the type of this object. TEXT.OBJECT. 

// 

II End 

{ 

return TEXT_OBJECT_OType; 

}; 

void TEXT_OBJECT::append(char *filename, ifstream& input-file) 
// Summary 

// 

II append a file as a text object 

// 

II Parameter 
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// 

// filename 

// 

// character string * containing the name of the file which 
II is read into a text-object. 

// 

/ / input-file 

// 

II file handle of input file 

// 

II Return Value 

// 

// stores the file as a text.object in the database 
II End 



{ 

theJilejiame = new char[strlen(filename) 4* 1]; 
strcpy(the _file_name, filename); 

ostrstream buf; 
char ch; 

while (buf &;& inputJile.get(ch)) 

{ 

buf.put(ch); 

} 

the_text = buf.str(); 
putObjectQ; 

}; 

void TEXT-OBJECT::append(char ♦instring) 

// Summary 

// 

II append a character string as a text object, stores the character 
II string as a text-object in the database 

// 

II Parameter 

// 

II instring 

// 

II character string * containing the description to be added as 
II a text-object. 

// 

II Return Value 

II 

u m 

n 

II End 

{ 

time.t mytloc=0; 
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time_t theTime; 



char *temp_text=:theJ,ext; 

the_text=new char[strlen(temp_text)-j-strlen(instring)-{- 
strlen(ctime(&theTime))-}- 1] ; 

strcpy(the_text,tempjtext); 

strcat(the_text, 

theTime = time(mytloc); 
strcat(the_text, ctime(fctheTime)); 
strcat(the_text, M \n"); 

strcat(the_text, instring); 
strcat(the.text, M \n H ); 

putObject(); 

}; 



void TEXT-OBJECT::append(ifstream& inputJfile) 

// Summary 

// 

// append a file as a text object, stores the file as a 
II text-object in the database 

II 

II Parameter 

// 

II input-file 

// 

II file handle of input file 

// 

II Return Value 

// 

// N/ A 

II 

II End 

{ 

time_t mytloc=0; 
time_t theTime = 0; 

char *temp_text=the_text; / / save old text 

ostrstream buf; 
char ch; 

while (buf input Jile.get(ch)) 

{ 

buf.put(ch); 

} 

theTime = time(mytloc); 
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char *file_text = buf.str(); 

the_text=new char [strlen(temp_text)+strlen(file Jtext) + 
strlen(ctime(fctheTime))+256]; 
int tempsize = strlen(temp_text)+strlen(file-text) + 
strlen(ctime(&theTime))+256 ; 
strcpy(the Jtext, temp_text); 
strcat(the_text, M \n M ); 
strcat(the_text, ctime(&theTime)); 
strcat(the.text, * , \n M ); 
strcat ( the Jtext, file Jtext); 
strcat(the_text, M \n"); 

putObject(); 

} 

void TEXT_OBJECT::text(ostream& outstream) 

// Summary 

// 

// output the text.object as a file, dumps the text-object to 
II the PROTOTYPE environment subdirectory 

// 

II Parameter 

// 

II outstream 

// 

II file handle of output file 

n 

II Return Value 

II 

// n/a 

II 

II End 



outstream <C the_text; 

}; 



Boolean TEXT-OBJECT: :rebuildTextFile(char *fileMode) 

// Summary 

// 

II output the text-object as a file in ”r” - read only or ”w” read 
II and write mode (refer to Unix system manual), dumps the 
II text-object to the PROTOTYPE environment subdirectory 

// 

II Parameter 

// 

/ / fileMode 

// 
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// ”r” - read only . n w” read/write. 

// 

// Return Value 

// 

1/ Boolean SUCCESS or FAILURE - refers to success of 
II rebuilding file on the disk. 

// 

I / End 

{ 

ofstream oFile; 

char *mypath = new char[MAX-LINE-LENGTH]; 
strcpy(mypath, dirNamePtr); 
strcat(mypath, ••/"); 
strcat(mypath, theJilejiame); 

if (strcmp(fileMode, "w") == 0 || strcmp(fileMode, M W M ) == 0) 

{ 

oFile.open(mypath,ios::noreplace); 
if (loFile) 

{ 

return FAILED; 

} 

} 

else 

{ 

oFile. open(mypath, ios::noreplace, 0444); 
if (loFile) 

{ 

cerr <C "<ERR0R: file M -C t he Jil e-name <C " already exists. >\n" 
return FAILED; 

} 

} 

if (the.text) 

oFile the-text ; 
oFile. close(); 
return SUCCESS; 

} 

void TEXT-OBJECT::displayFileName() 

// Summary 

// 

/ / Displays the text^object filename to stdout. 

u 

II Parameter 

ii 

nm 

// 

II Return Value 

// 

II n/a 

II 

// End 
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{ 

cout <gl theJileJiame "\n"; 

} 

char *TEXT_OBJECT::getFileName() 

// Summary 

// 

// Returns the attribute containing the name of the file 
//as it was stored on the dtsk. 

// 

// Parameter 

ii 

II N/A 

II 

// Return Value 

// 

// character string containing the file name of the object 

// 

// End 

{ 

return the Jile_name; 

} 



char *TEXT.OBJECT::text() 

// Summary 

// 

// return the contents of the A ext 

// 

// Parameter 

// 

Un/a 

II 

// Return Value 

// 

// character string pointer with the text in the texLobject. 

// 

// End 

{ 

return the_text; 

}; 

void TEXT_OBJECT::resetTheText() 

// Summary 

// 

/ / Reinitialize theAext attribute to a blank character. 

// 

// Parameter 

// 

II N/A 
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II 

// Return Value 

II 

II N/A 

II 

U End 

{ 

strcpy(the_text, MM ); 

} 
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/ / File Header 

//-. •• 

// .Filename : thread. h 

//.SCCS ID ; 1.3 

/ / .Release No....: 1 

//.Date : 9/16/91 

// .Author. ; Garry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// -• 

// End header comments 

#ilndef -THREAD-H 
#define __THREAD-H 

// SCCS ID follows: will compile to place date/time stamp in 
/ / object file 

static char thread JuSccsId[] = "®(#)thread.h 1 . 3\t9/16/91 M 

/ / Contents 

// 

// THREAD 

u 

/ / Description 

// 

// Defines class THREAD. 

// 

I / End 

// Interface Dependencies 

#include <Object.h> 

#include <Dictionary .h> 

#include <Ref erence .h> 

#include 5, Ref erenceHacros .h” 

#include <stream.hxx> 

class V .OBJECT; 

// End Interface Dependencies 

TypeCheckReference(VOListReference, Reference, Dictionary); 

class THREAD : public Object 

{ 

private: 

int current-version; // most recent rev. 

VOListReference theJist; 

public: 
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THREAD(APL *theAPL); 

THREAD(char *id); 

virtual void Destroy (Boolean aborted=FALSE); 
virtual Type *getDirectType(); 
int getCurrentVersionNum(); 

V -OBJECT *current(); 

V -OBJECT *version(int version Jd); 
void add_object(V_OBJECT *new_object); 
void displayThreadVersions(); 
void displayThreadContents(); 

}; 

// Description 

u 

// Defines a THREAD class. The class COMPONENT is a derived class 
/ / of Object (i.e. It is a persistent class). A thread may 
II contain multiple versions of an COMPONENT , composite or 
II configurations. 

// 

II Constructor 

// 

1 1 Thread - A PL 

II 

II ONTOS required constructor. 

// 

II Thread 

// 

II Constructs a thread with the given name. 

II 

II Public Members 

// 

If Destroy 

// 

II Used in lieu of a class destructor. 

// 

II getDirectType 

II 

II ONTOS required method to return the class type. 

// 

If getCurrentVersionNum 

// 

II Returns the version number of the vobject last add to the thread. 

// 

II current 

n 

II Returns a pointer to the current vobject in the thread. 

1 / 

II version 

// 

II Returns a pointer to a user designated version of a vobject. 

II 
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// add-Object 

// 

// inserts a vobject into the thread. 

ii 

II displayThreadVersions 

1/ 

II List the version numbers of vobjects contained in the thread . 

II 

II displayThreadConients 

n 

II Displays the version number and description of each vobject in the thread. 

1/ 

// End 

#endii // -THREAD.H 
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// File Header 

//•••• •• 

II .Filename : thread. cxx 

/ /.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date : 9/16/91 

// .Author ; Garry Lewis 

/ / ; Drew Dwyer 

/ / .Compiler : Glockenspiel C++ 2.1 

// •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in object file 
static char thread_cxx_SccsId[] = "C(#)thread. cn 1 . 3\t9/16/91 M ; 

// Contents 

// 

II THREAD::THREAD ONTOS constructor 

II THREAD::THREAD new instance constructor 

II THREADr.Destroy 

II THREADr.getDirectType 

/ / THREADr.getCurrent VersionNum 

II THREAD: .’current 

II THREADr.version 

II THREADr.add.object 

/ / THREA D: .’display ThreadVersions 

II THREAD: :displayThreadContents 

ii 

II Description 

// 

II Implementation of class THREAD member functions. 

// 

II End 



#include <GlobalEntities .h> 

#include <stream.hxx> 

#ifndef _THREAD_H 
#include ’’thread.h” 

#endil 

#i*ndef _VERSIONED_OBJECT JI 
#include ”versioned_object .h” 

#endil 

extern Type *THREAD-OType; 
extern Type *V.OBJECT.OType; 

THREAD::THREAD(APL *theAPL): (theAPL) 
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{ 

}; 



THREAD::THREAD(char *id): (id) 

// Summary 

// 

// Constructs a persistent THREAD object. A thread contains 
II a list of V-OBJECTS (objects which version ), and maintains 
// the most current version from that list of versioned 
// objects. 

// 

1 1 A thread is stored in the ONTOS database and is given 
If visibility. Therefore , only one operator may generate any 
If given thread. 

// 

II It is expected that Variations will inherit from threads 
If with two distinctive bits of information : 

// 

I) the thread from which it spawned - 

// the version number from which it originated 

// 

/I Parameter 

// 

/lid 

II 

II passed to the ONTOS database and gives persistence and 
II ONTOS visibility to that object 

// 

II Return Value 

// 

If a persistent THREAD in the ONTOS database 

// 

// End 



{ 

initDirectType(THREAD_OType); 
current _version=0; 

Dictionary *newJist=new Dictionary(OC_integer, 

V_OBJECT_OType, 
TRUE, FALSE); 

newJist — ^putObject(); 
theJist.Reset(new Jist, this); 
putObjectQ; 

}; 



void THREAD::Destroy(Boolean aborted) 

{ 

Destroy (aborted); 

}; 
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Type *THREAD::getDirectType() 



// Summary 

// 

// returns the ONTOS Type for the prototype class . 

// 

// Return value 

// 

II A pointer to an ONTOS Type . 

// 

1 1 End 

{ 

return THREAD_OType; 

}; 

int TH READ: :getCurrent VersionNum() 

// Summary 

u 

II returns the current version number in the thread of 
II versioned objects 

1 / 

II Parameter 

// 

II N/A 

II 

II Return value 

// 

1 1 An integer value representing the current version of the 
II operator/type (as defined by CAPS) 

il 

II End 

{ 

return current-version; 

} 

V .OBJECT *THREAD::current() 

// Summary 

// 

II returns the current versioned object in the thread. 

1 / 

II Parameter 

ll 

// N/A 

II 

II Return value 

ll 

1 1 A V-OBJECT pointer 
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// 

// End 



{ 

Dictionary *temp_list= (Dictionary*)the_list.Binding(this); 

V -OBJECT *mytempvo = (V-OBJECT*)(Entity*)(*temp_list)[current_version] 
return mytempvo; 

}; 



V-OBJECT *THREAD::version(int the. version) 

// Summary 

u 

// returns the desired version in the thread of versioned 
II objects 

// 

// Parameter 

II 

II n/a 

II 

II Return value 

// 

II A V-OBJECT pointer 

// 

II End 

{ 

Dictionary *temp_list= (Dictionary*)the_list.Binding(this); 

V.OBJECT *mytempvo = (V_OBJECT+)(Entity*)(*tempJist)[the_version]; 
return mytempvo; 

}; 



void THREAD::add_object(V_OBJECT *new.object) 

// Summary 

// 

II adds a versioned-object to the thread, and updates the 
If cuirenLverston attribute to reflect the newer version 

// 

If Parameter 

II 

II new-vobject 

// 

II V.OBJECT pointer 
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// 

// Return Value 

// 

nm 

// 

// End 



{ 

if(!this) 

{ 

cout <C "<ERROR: cannot attach a v.object to a null THREAD>\n"; 
return; 

. } 

if(!new_object) 

{ 

cout < "<ERROR: cannot insert a null v.object into a thread>\n' 
return; 

} 

else 

{ 

current ..version = current -version -f 1; 

Dictionary *temp_list = (Dictionary+)the_list.Binding(this); 
tempJist Insert (current -version, (Entity *)new_object); 

tempJist — ► putObject(); 
putObject(); 

} 



void THREAD: :displayThreadVersions() 

// Summary 

// 

// Display the versions within a thread to stdout 

u 

II Parameter 

// 

// N/A 

// 

II Return Value 

u 

Un/a 

// 

1 1 End 



{ 



Dictionary *tempJist= (Dictionary*)the_list.Binding(this); 
Dictionarylterator next(tempJist); 

cerr < "THIS THREAD CONTAINS THE FOLLOWING VERSIONS : \n\n"; 
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while(next.moreDataQ) 

{ 

V -OBJECT *temp=(V_OBJECT *)(Entity *)next(); 
temp— ►display VersionNumberQ; 

}; 



void THREAD::displayThreadContents() 

{ 

// Summary 

// 

// Displays the version and description of each versioned 
/I object of a thread . 

// 

// NOT USED in current implementation of Design Database. 

// 

// Parameter 

// 

II N/A 

II 

/ / Return Value 

// 

// N/A 

II 

II End 

Dictionary *temp_list= (Dictionary*)the_list.Binding(this); 
Dictionarylterator next(temp Jist) ; 

cerr < M THIS THREAD CONTAINS THE FOLLOWING VERSIONS : \n\n M 
while(next.moreDataQ) 

{ 

V.OBJECT *temp=(V_OBJECT *)(Entity *)next(); 

temp-^display VersionN umber() ; 

cout < M \n"; 

temp— ►getDescriptionO ; 

cout M \n M ; 

}; 
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// File Header 

// •• 

// .Filename ; tree.h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

//.Author ; Carry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C- f+ 2.1 

// •• 

// End header comments 

#if ndef _TREE_H 
#def ine _TREE_H 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char tree_h_SccsId[j = M Q(#)tree.h 1 .3\t9/16/91 M ; 

// Contents 

// 

// TREE HEADER 

II 

// Description 

II 

// Defines class TREE. 

// 

U End 

// Interface Dependencies 

#if ndef _TREENODE_H 
#include ”treenode.h” 

#endif 

// End Interface Dependencies 

class TREE 

{ 

private: 

char * tree _name; 

TREENODE * theTteeRootNode; 

public: 

TREE(TREENODE *,char *); // input list and resulting rootnode 
void builcLtree(TREENODE *,TREENODEJinkedlist); 
TREENODE *find_treenode(TREENODEJinkedlist, char *); 

}; 

// Description 
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// 

// Defines the TREE class. 

II 

// Constructor 

// 

II Constructs a multiway tree from a linked list of nodes 
II identified as operators from reading the subdirectory in 
II TREENODE class. In this tree is one unique TREENODE - 
II the "root”. Once the root is identified, reference to 
II the tree can be passed to other classes who can then deal 
II individually with nodes in that tree through the TREENODE 
II class . 

// 

// TREE 

II 

II constructs the tree given a TREENODE object and a character 
II string pointer to the root operator. 

// 

/ / Public Members 

// 

II build-tree 

ll 

II takes in the root TREENODE and a linked list of other 
II generic operator nodes and builds the multiway tree using 
II pointers and lists of children nodes. 

// 

II findJreenode 

// 

II given a character string of a TREENODE and a linked list of 
II TREENODES, search the linked list and return a TREENODE 
II pointer on a match. Return a NULL pointer if fails. 

// 

II End 

#endif // _TREE.H 
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/ / File Header 

// •• 

// .Filename : tree.cxx 

// -SCCS ID ; 1.3 

// .Release No....: 1 

//.Date : 9/16/91 

// .Author : Garry Lewis 

/ / ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
/ / object file 

static char tree»cxx-SccsId[] = "C(#)tree . exx 1 ,3\t9/16/91"; 

// Contents 

// 

// TREE::TREE 
// TREE::buildJree 
// TREE::findJreenode 

u 

// Description 

ii 

II IMPLEMENTS class TREE CONSTRUCTORS. 

II 

// End 

// Interface Dependencies 

#include <Database.h> 

#include <stream.hxx> 

extern M C — " 

{ 

#include <stddef .h> 

#include <stdlib.h> 

#include <stdio.h> 

#include <string.h> 

#include <dirent.h> 

#include <sys/stat.h> 

#include <time.h> 

} 

#if ndef _TREE_H 
#include ”tree.h” 

#endif 

#if ndef __QUEUE JI 
# include ” queue. h” 
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#endif 



#ifndel -NODESUPPORT-H 
#include ” nodesupport .h” 

#endif 

// End Interface Dependencies 

TREE::TREE(TREENODE *future_root,char *treename) 

// Summary 

// 

// Constructor 

II 

II Parameter 

// 

II future-root 

// 

// TREENODE pointer containing the future root of the multiway 
II tree 

n 

II treename 

// 

II character string - the same name as the root operator 

// 

If Return Value 

// 

// A construted multiway tree reflecting the nodes which 
II exist in the subdirectory and which will be checked into 
II the design database 

// 

1 1 End 



{ 

tree-name = new char [strlen(treename)+l]; 
strcpy(tree -name, treename); 
theTreeRootNode = future_root; 

} 

TREENODE *TREE::find-treenode(TREENODE-linkedlist list-to_search, 

char *node-name) 



// Summary 

// 

// findJreenode 

// 

II Parameter 

II 

/ / list -to search 

// 

1 1 a linked list of TREENODES 
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// 

// node-name 

// 

// the operator/type to search for (i.e. - the name of the 
II operators filename MINUS the . ps , .graph, .imp.psdl, 
II .spec.psdl, .a extension 
// 

II Return Value 

II 

II TREENODE if found - NULL pointer if not found. 

// 

// End 



{ 

slistJterator list iterator (list -to jsearch); 
TREENODE *tnode; 
while (tnode=list Jterator()) 

if (strcmp(tnode— ►getname(),node_name)==0) 
return tnode; 
return NULL; 



} 

void TREE::builcLtree(TREENODE *root_node,TREENODE_linkedlist search Jist) 
// Summary 

II 

/ / Builds a multiway tree containing the nodes in the directory 
If and information required to determine whether a new version 
II of the node must be created in the ONTOS Design Database. 

ll ' 

II Parameter 

// 

II root-node 

ll 

II the unique TREENODE which is the root of this multiway tree 

// 

/ / search-list 

// 

II a list of operators in the subdirectory pointed to by the 
II environment variable PROTOTYPE 

// 

II Return Value 

n 

II n/a 

II 

II End 

{ 

TREENODE * nodeptr; 
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TREENODE * temp.TREENODE.ptr; 

TREENODE * new.TREENODE.ptr; 

// create the queue inorder to construct the tree 
TREENODE.queue tree_node .queue; 
tree _node_queue.put(root .node); 

// now the queue has the first TREENODE on it 
while (!tree_node_queue.empty()) 

{ 

temp.TREENODE.pt r = tree Jiode jqueue. get (); 

// now iterate through search Jist , look for NODES whose associated 
If strings are "proper” superstrings of temp-TREENOD E.ptr-> operator. name 
II If they are create a TREENODE for these child nodes, 

II put the TREENODE in queue as well as in temp.TREENODE.ptr-> children 
II list. 

slistJterator OperatorPtr(search Jist); 
while (nodeptr=OperatorPtr()) 

{ . 

if (proper j5uperJWDExheck(nodeptr, temp .TREENODE _ptr— ►getnameQ)) 

II create the new TREENODE 

{ 

new.TREENODE.ptr = new TREENODE(nodeptr, temp.TREENODE.ptr); 

tree.node.queue.put(new_TREENODE_ptr); 

temp.TREENODE_ptr—MnsertChildNode(new.TREENODE_ptr); 

} 

} 

} 

} 
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// File Header 

//•••• •• 

// .Filename ; treenode.h 

//.SCCS ID ; 1.8 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author : Garry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C-f-f 2.1 

// •• 



// End header comments 

#i*ndef _TREENODE-H 
#def ine _TREENODE_H 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char treenodeJiJ5ccsId[| = M C(#)treenode .h 1 . 3\t9/16/91" 
// Contents 

II 

1 1 TREENODE HEADER 

II 

// Description 

ll 

// Defines class TREENODE. 

// 

II End 

// Interface Dependencies 

#ifndef _QUEUE_H 
#include ” queue. h” 

#endif 

#ifndef _VERSIONED_OBJECT_H 
#include ” versioned_obj ect .h” 

#endif 

// End Interface Dependencies 

class TREENODE; 

class TREENODE 

{ 

private: 

char *tree_node_name; 
char *node_name; 
long timestamp; 
int level; 

TREENODEJinkedlist ChildrenList; 
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TREENODE * ParentNode; 
public: 

TREENODE(char *, TREENODE *); 
TREENODE(TREENODE *, TREENODE *); 
void updatetimestamp(long time); 
char *getname(); 

void insertChildNode(TREENODE *); 

TREENODE Jinkedlist getChildren(); 

TREENODE *getParentNode(); 

char *get_asc_time(); 

int getlevelQ; 

long get Jong_time(); 

void list_subtree(); 

void checkin-subtree(V_OBJECT *); 

V-OBJECT *checkinjiode(V-OBJECT *); 

}; 



// Description 

// 

// TREENODE 

II 

// TREENODE 

II 

// Constructor - Builds a treenode to be a node plus pointer 
II information for building a multiway tree . 

// 

// updatetimestamp 

// 

II used to compare the most current filestamp of the group of 
II five files in a versioned object from the disk directory 
II pointed to by the CAPS environment variable PROTOTYPE to 
II the locktime of the matching versioned object stored 
II in the Design database. 

n 

II getname 

// 

II returns the character string name of the treenode. 

// 

II insertChildNode 

II 

II used to insert a node as a child of the current treenode 

II 

II getChildren 

// 

II returns the linked list of children of this node 

// 

II getParentNode 

// 

II returns the parent of this node 

// 
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// get.ascJime 

// 

// returns the dime function for the treenode timestamp attribute 

// 

II getJevel 

// 

II returns the integer level (0 = root, 1 is removed from root 
Ijl level, etcetera 
// 

II getJongJime 

// 

II returns the timestamp from the treenode as a long that can 
/ 1 be used in a comparison in the checkin-node function 
// 

If listsubtree 

// 

If used for debugging . Lists the multiway tree 

// 

/ / checkinsubtree 

// 

If after the multiway tree is built, this function launches the 
II recursion which does the bulk of the work. 

// 

II checkin-node 

II 

II the function which compares the TREENODE (as read from 
II disk) to threads in the database . If a match is found, 

II locktimes are compared to timestamp and if timestamp is 
II more recent, then a new versioned object is created for 
II the database. All version links are set up in this 
II function 
// 

II End Description 



#endif // header file 
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// File Header 

//-• •• 

// .Filename ; treenode.cxx 

//.SCCS ID ; 1.8 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// ; Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// : 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in 
// object file 

static char treenode_cxx_SccsId[] = i, €(#)treenode. exx 1 . 3\t9/16/91 M 

// Contents 

// 

// TREENODE:: TREENODE 
U TREENODE::TREENODE 
// TREENODEr.updatetimestamp 
// TREENODEr.getname 
// TREENODEr.inserlChildNode 
// TREENODE: :getChildren 
// TREENODEr.getParentNode 
// TREENODEr.get.ascMme 
// TREENODEr.getlevel 
// TREENODEr.getJongJime 
// T REE NODE: :list.subtree 
// TREENODE::checkin.subtree 
// TREENODE::checkin.node 

II 

// Description 

n 

/ 1 IMPLEMENTS class TREENODE CONSTRUCTORS and methods. 

II 

II End 

// Interface Dependencies 

#include <Directory .h> 

#include <stream.hxx> 

extern "C — M 

{ 

#include <stddef .h> 

#include <stdlib.h> 

#include <stdio.h> 

#include <string.h> 

#include <dirent.h> 

#include <sys/stat.h> 
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#include <time.h> 

} 

#ilndel _THREAD_H 
#include ” thread. h” 

#endil 

#if ndef ^.COMPONENT 
#include "component .h” 

#endii 

#ifndef _TEXT_OBJECT JI 
#include "text.object .h" 

#endil 

#ifndef _TREENODE_H 
#include "treenode.h” 

#endif 

#ifndef _DDBDEFINES.H 
#include "ddbdef ines .h” 

#endif 

// End Interface Dependencies 

extern char *dirNamePtr; 



TREENODE::TREENODE(char *name, TREENODE* future_parent) 

{ 

tree_node_name = new char[strlen(name)+l]; 
strcpy (tree _node Jiame, name); 
level=0; 
timestamp — 0; 

Parent Node =future_parent; 

} 

TREENODE::TREENODE(TREENODE *inc.data, TREENODE* future.parent) 

{ 

tree_node_name — new char[strlen(inc_data*^getname())+l]; 
strcpy (tree mode .name, inc.data— ►getname()); 
if ((future_parent)^NULL) 

level=future_parent— *getlevel()+ 1 ; 
else 
level=l; 

timestamp = inc.data— ►getJong.timeQ; 

Parent Node = future.parent; 

} 

void TREENODE::updatetimestamp(long time) 

{ 

timestamp=time; 



279 



} 



char *TREENODE::getname() 

{ 

return tree .node _name; 

} 

void TREENODE::insertChildNode(TREENODE *new_child) 

{ 

ChildrenList.insert(new_child); 

} 

TREENODEJinkedlist TREENODE::getChildren() 

{ 

return ChildrenList; 

} 

TREENODE *TREENODE::getParentNode() 

{ 

return ParentNode; 

} 

char *TREENODE::get_asc_time() 

{ 

return ctime(& timestamp); 

} 

int TREENODE::getlevel() 

{ 

return level; 

} 

long TREENODE::getJong_time() 

{ 

return timestamp; 

} 

void TREENODE::listjsubtree() 

{ 

slist iterator ChildrenPtr(ChildrenList) ; 

TREENODE *tnode; 

for (;;) // recursive call inside infinite for loop 

{ 

tnode = ChildrenPtr(); 
if (tnode^NULL) 

{ 

char *name=tnode— ►getname(); 

int level = tnode— ►getlevelQ; 

char *asctime = tnode— ►get_asc_time(); 

cout < level <C " — >" name -C "time: "<Casctime; 

tnode— ►list jsubtree(); // preorder 
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} 

else 

break; // breaks when end of list reached. 

} 

} 

void TREENODE::checkin_subtree(V_OBJECT *new .parent) 

{ 

slist -iterator ChildrenPtr(ChildrenList); 

TREENODE *tnode; 

for (;;) // recursive call inside infinite for loop 
{ 

tnode = ChildrenPtr(); 
if (tnode^NULL) 

{ 

V -OBJECT ^parent; 

char *name = tnode— ►getnameQ; 

cerr < "CHECKIN— > M < name < M \n M ; 

parent = tnode— ►checkin _node(new .parent); 

tnode— ►checkin.subtree(parent); / / preorder 

} 

else 

break; // breaks when end of list reached. 

) 

} 

V .OBJECT *TREENODE::checkin-node(V-OBJECT *future.parent) 

{ 

ifstream psfile; 
ifstream graphfile; 
ifstream impfile; 
ifstream specfile; 
ifstream sourcefile; 

Boolean createmew jvobject = FALSE; 

char *psfilename; 

char *graphfilename; 

char *impfilename; 

char *specfilename; 

char *sourcefilename; 

char *COMPONENT_psfilename; 
char *COMPONENT_graphfilename; 
char *COMPONENT_impfilename; 
char *COMPONENTjspecfilename; 
char *COMPONENTjsourcefilename; 

COMPONENT-psfilename = new char[strlen(tree_node.name)+LENGTH_PS-EXT+2]; 
COMPONENT.graphfilename = new char [strlen( tree .node _name)-f LENGTH_GRAPH_EXT+2]; 
COMPONENTJmpfilename = new char[strlen(tree_nodejiame)4* LENGTH JMP_EXT-f 2]; 
COMPONENTjspecfilename = new char [strlen (tree .node mame)+LENGTHJ3PEC_EXT4*2]; 



281 



COMPONENTsourcefilename = new char[strlen(tree -node _name)-}-LENGTII -SOURCE _EXT+2]; 

psfilename = new char[strlen(dirNamePtr) +strlen(tree-node -name)+LENGTHJPS_EXT+2]; 
graphfilename = new char[strlen(dirNamePtr)+strlen(tree_node -name)+LENGTFLGRAPH_EXT+2]; 
impfilename = new char[strlen(dirNamePtr)H-strlen(tree-node-name)+LENGTH JMP.EXT+2]; 
specfilename = new char [strlen(dirNamePtr)+strlen(tree .node _name)+LENGTH -SPEC_EXT+2]; 
sourcefilename = new char[strlen(dirNamePtr)+strlen(tree Jiode.name)+LENGTH JSOURCE-EXT+2]; 



strcpy(psfilename,dirNamePtr); 
strcpy(graphfilename,dirN amePtr) ; 
strcpy(specfilename,dirNamePtr); 
strcpy(impfilename,dirNamePtr); 
strcpy(sourcefilename,dirNamePtr); 

strcat(psfilename,"/"); 
strcat(graphfilename,"/"); 
strcat (specfilename ; 
strcat(impfilename,"/"); 
strcat (sourcefilename ,"/") ; 

strcat(psfilename,tree_node_name); 
strcat(graphfilename,treeJiode_name); 
strcat(specfilename,tree -node -name); 
strcat(impfilename,tree_node«name); 
strcat(sourcefilename, tree -node -name); 

strcat (psfilename," .ps"); 
strcat(graphfilename," . graph"); 
strcat (impfilename," . imp.psdl"); 
strcat(specfilename," . spec .psdl"); 
strcat (sourcefilename," .a"); 

strcpy(COMPONENT_psfilename,tree _node_name); 
strcpy (COMPONENT .graphfilename, tree .node .name) ; 
strcpy(COMPONENTspecfilename,tree-node .name); 
strcpy (COMPONENT impfilename, tree _node-name); 
strcpy(COMPONENT sourcefilename, tree jnodejname); 

strcat(COMPONENT psfilename," . ps " ); 
strcat (COMPONENT-graphfilename," .graph"); 
strcat(COMPONENT impfilename," . imp.psdl"); 
strcat(COMPONENTspecfilename," . spec. psdl"); 
strcat (COMPONENT sourcefilename," . a"); 

psfile.open(psfilename) ; 
graphfile.open(graphfilename) ; 
impfile.open(impfilename) ; 
specfile.open(specfilename) ; 
sourcefile.open(sourcefilename) ; 
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THREAD *threadPtr= (THREAD *)0; 

V -OBJECT *vobjectPtr =(VjOBJECT *)0; 

V.OBJECT *new .vobject = (V.OBJECT *)0; 
long vobjectJocktime = 0; 

Int versionNum = 1; 

if (threadPtr =((THREAD *)OCJookup(tree-node.name))) 

{ 

vobjectPtr = threadPtr — ►currentQ; // return current vobject 
vobjectJocktime = vobjectPtr — ►getLockTime(); // return locktime 
Boolean lastjoperation_was_checkin = vobjectPtr— ►get Jast.operation(); 
if (vobjectJocktime < timestamp) 

{ . 

if (last joperation.was-checkin) 

{ 

cout <C "Last operation was VAA . . . Preventing duplicates\n M 
return vobjectPtr; 

} 

else 

{ 

versionNum = vobjectPtr — ► getVersionNumber() + 1; 
create -new .vobject = TRUE; 

} 

} 

} 

else 

{ 

threadPtr = new THREAD(tree_node .name); 
create .new .vobject = TRUE; 

} 

if (vobjectPtr) 

{ 

vobjectPtr— ►releaseLock(); 
vobjectPtr— ►reset LastOpTrue(); 

vobjectPtr— ►reset VisitedFlag(); // Just for good measure , before pass 2 
vobjectPtr— ►putObjectQ; 

} 

if (create -new .vobject) // if compare says I need a new 

{ 



new_vobject= new V. OB JECT( versionNum); 
new.vobject— ►connect .vobject _to_thread(threadPtr); 
COMPONENT *new_COMPONENT=new COMPONENT(); 
if (psfile) 

{ 

TEXT-OBJECT *new .psfile _object= new TEXT JOBJECT(); 
new_psfile-object— ►append(COMPONENT_psfilename, psfile); 
new.COMPONENT — »-addTextObject(new .psfile .object); 

} 
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if (graphfile) 

{ 

TEXT-OBJECT * new .graphfile .object =new TEXT -OBJECTQ; 
new_graphfilejobject— ►append(COMPONENT_graphfilename, graphfile); 
new_COMPONENT — ►addTextObjec^new .graphfile .object); 

} 

if (specfile) 

{ 

TEXT-OBJECT * new .specfile _object=new TEXT£)BJECT(); 
newjspecfilejobject— ►append(COMPONENT-specfilename, specfile); 
new.COMPONENT — ►addTextObject(newjspecfile .object); 

} 

if (impfile) 

{ 

TEXT-OBJECT * new-impfile-object=new TEXT-OBJECTQ; 
new impfile_object— ►append(COMPONENT_impfilename, impfile); 
new.COMPONENT — ►addTextObject(newimpfile-object); 

} 

if (sourcefile) 

{ 

TEXT-OBJECT *newjsourcefile.object=new TEXT .OBJ ECT(); 
new_sourcefile_object— >append(COMPONENT .sourcefilename, sourcefile) ; 
new.COMPONENT — ►addTextObject (new -sourcefile .object); 

} 



new .vobject— >addCOMPONENTNode(new .COMPONENT); 
threadPtr— ►add-object(new-vobject); 

if (future-parent) 

{ 

if (vobjectPtr) 

future-parent— ►deleteChildNode(vobjectPtr); 
future_parent— ►addChildNode(new-vobject); 
future-parent— ►putObject(); 

} 

} 

else 

{ . 

if (future_parent) 

{ 

future-parent— ►addChildNode(vobjectPtr); 
future-parent— ►putObjectO ; 

} 

} 

psfile.close(); 
graphfile.close(); 
impfile. close(); 
specfile. closeQ; 
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sourcefile.close(); 



if (create .new .vobject) 

{ 

new.vobject— ►setNodeName(getname()); 
new.vobject— ►setParent (future .parent); 

return new.vobject; // return new version of vobject as parent 

} 

else 

{ 

vobjectPtr— *setParent(future .parent); 

return vobjectPtr; // return old version of vobject as parent 

} 



285 



// File Header 

// •• 

/ / .Filename : versioned.object.h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// • 

// End header comments 

#ifndef -VERSIONED-OBJECTJf 
#def ine -VERSIONED-OBJECT-H 

// SCCS ID follows: will compile to place date/time stamp in object file 

static char versioned.object JiJSccsIdQ = M C(#)versioned_obj ect .h 1 . 3\t9/l6/91" 

#include <Object.h> 

#include <List.h> 

#include <Dictionary .h> 

#include <Ref erence .h> 

#include ” Refer enceMacros .h” 

#include <stream.hxx> 

extern "C — M 

{ 

#include <sys/time.h> 

#include <sys/types .h> 

#include <string.h> 

} 

#ifndef _THREAD_H 
#include ” thread. h” 

#endif 

#if ndef -COMPONENTS 
# include ” component .h” 

# end if 

#def ine DEFAULT_VER 1 

TypeCheckReference(DescReference, Reference, TEXT -OBJECT); 
TypeCheckReference(COMPONENTObjReference, Reference, COMPONENT); 
TypeCheckReference(ChildVObjReference, Reference, List); 
TypeCheckReference(ThreadObjReference, Reference, THREAD); 

class V .OBJECT : public Object 

{ 

TypeCheckReference(ParentObjReference, Reference, V.OBJECT); 
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private: 

int theVersionNumber; 
time.t creationDate; 
timeJ, lockTime; 
char *node_name; 
char ^creator; 
char * worker; 

Boolean visited; // for navigation through tree structure 
Boolean last.op_checkin; // guards against double checkin 
DescReference theDescriptionPtr; 

ThreadObj Reference theThreadPtr; 

COMPONENTObj Reference theCOMPONENTPtr; 

Child VObj Reference theChildPtr; 

ParentObj Reference theParentPtr; 

public: 

V_OBJECT(APL *); 

V_OB J ECT(int = DEFAULT _VER); 
void Destroy (Boolean aborted=FALSE); 

Type *getDirectType(); 

void connect. vobject_to_thread(TH READ *); 

void set Parent (V.OBJECT *); 

void setNodeName(char *); 

char *getNodeName(); 

void getVObjName(); 

char *getName(); 

void reset VisitedFlag(); 

void setVisitedFlag(); 

Boolean getVisitedFlagQ; 

void getVObjComponentsName(); 

void display VersionNumber(); 

int getVersionNumber(); 

void dumpVObjSummary(); 

time.t setCreationDateQ; 

time_t getCreationDate(); 

void setLock(); 

char *getWorker(); 

char *getCreator(); 

void setWorker(); 

void resetLastOpTVue(); 

void reset LastOpFalseQ; 

Boolean get Jastjoperation(); // returns true if last op was checkin 

int releaseLock(); 

time_t getLockTimeQ; 

void getDescription(); 

void listChildren(); 

void longlistOperatorNamesQ; 

void listOperatorNames(); 
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void update Description(char *, ifstream &); 
void addCOMPONENTNode(COMPONENT *); 
void deleteChildNode(V_OBJECT *); 
void addChildNode(V_OBJECT *); 

V.OBJECT *getParent(); 

COMPONENT *getCOMPONENT(); 
void dumpSubtree(char *); 
void release LockSubtree(); 

List *getChildren(); 

Boolean getChildPtrQ; 

Boolean checkoutCOMPONENTNode(char *); 

-V.OBJECTQ { Destroy (FALSE); }; 

}; 

// Description 

// V.OBJECT 
// V.OBJECT 

II 

// Constructors - builds a persistent object in the Ontos 
II database. 

// 

II Destroy 

II 

II Required by Ontos. Every persistent object must have a 
II destroy function. 

// 

II getDirectType 

II 

II Returns an Ontos Type 

1/ 

II connects object Jo Jhread 

// 

II Connects a vobject to a thread bearing it y s name. 

n 

// setParent 

// 

II Used to establish links (Transparent References as Ontos 
II calls them) in the Design Database reflecting the 
II decomposition of CAPS operators/types. 

// 

II setNodeName 

// 

II NodeName is maintained as a separate character string field. 

// 

/ / getNodeName 

// 

II get the shorter NodeName 

II 

II getVObjName 

II 

II Displays the versioned object’s name to stdoui 
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// 

// getName 

// 

// returns the character string pointer of the Operator Name 

// 

II resetVtsitedFlag 

// 

II resets visited to FALSE 

// 

II setVisitedFlag 

// 

II sets visited to TRUE 

ii 

II getVisitedFlag 

n 

II returns the value of visited ( Boolean ) 

// 

// getVObjComponentsName 

// 

// display the different components in the Operator 

// 

II display VersionN umber 

li 

II Display the version number of the V-OBJECT to stdout 

ii 

II getVersionN umber 

// 

II return the int versionNumber 

II 

II dumpVObjSummary 

II 

II dump predetermined attribute values to the stdout/stderr 

// 

II setCreationDate 

// 

II gets the system time and stores it in CreationDate 

// 

II getCreationDate 

// 

II Displays the creation date as a 26 character ascii text 
II string of the date and time 

ii 

II setLock 

ii 

II sets the lock to the system time 

1/ 

II get Worker 

// 

II returns the character string containing the workers name 

II 

// get Creator 
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// 

// returns the character string containing the V-OBJECT 
// creators name 
// 

// setWorker 

// 

II gets the UNIX UserPtr variable and stores the value of that 
II variable into worker 

// 

II resetLastOpTrue 

// 

II Tells the system that the last operation on that V-OBJECT 
II was a checkin. Prevents duplicate checkins from creating 
II new versioned objects on each checkin 

II 

II resetLastOpFalse 

// 

II resets the last operation immediately following checkin 

// 

II getJast-operation 

// 

II returns a Boolean TRUE if last operation was an add 

II 

/ / releaseLock 

II 

II sets the lockTime back to 0 (epoch time) Sometime in 1969. 

// 

II getLockTime 

// 

II return the lockTime as a time-t (long) structure 

// 

/ / getDescription 

II 

/I Display the V-OBJECT description (if one exists) 

// 

II listChildren 

// 

II list V. OBJECT’S chilren 

II 

II longlistOperatorN ames 

// 

/ 1 list V.OBJECT’s children 

II 

II listOperatorN ames 

// 

II gives the explicit name of the operator (to include 
II path information from the root V-OBJECT 
// 

II updateDescription 

II 

If updates the versioned-objects description. 
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// 

// addCOMPONENTNode 

II 

// adds an COMPONENT object to this V-OBJECT using the Ontos 
/ / binding mechanism 
// 

II deleteChildNode 

// 

// removes an operator from the children list of the 
II current V-OBJECT 
// 

II addChildNode 

// 

II adds an operator to the children list of the V-OBJECT 

// 

// getParent 

// 

II returns the parent V-OBJECT 

// 

// geiCOMPONENT 

II 

// returns an COMPONENT pointer if one is contained in this 
II V.OBJECT 

II 

II dumpSubtree 

// 

II attempts to rebuild files from versioned objects onto 
II the UNIX subdirectory referenced by the UNIX variable 
1 1 PROTOTYPE 
// 

// releaseLockSubtree 

// 

// resets that node and every node under it to zero 
II epoch time (sometime in 1969) 

// 

II getChildren 

// 

II returns a list of the children of the current V-OBJECT 

// 

II getChildPtr 

// 

II returns a Boolean TRUE if the Cardinality of the list 
II referenced by the theChildPtr is > zero 

II 

/ 1 checkoutCOMPONENTNode 

II 

II attempts to rebuild the .ps, .graph, . imp.psdl , .spec.psdl 
II and . a files of an operator/type stored in the Design 
II Database 

II 

// End 
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#endil 
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// File Header 

// : 

// .Filename ; versioned-object.cxx 

/ /.SCCS ID ; 1.3 

//.Release No....: 1 

//.Date : 9/16/91 

// .Author ; Garry Lewis 

// : Drew Dwyer 

// .Compiler : Glockenspiel C++ 2.1 

// : 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in object file 

static char versioned_object.cxx-SccsId[] = "€(#) versioned_object . exx 1 . 3\t9/16/91" 

// Contents 

// 

// V. OBJECT:: V-OBJECT 

// V-OBJECT:: V.OBJECT 

// V-OBJECT: '.Destroy 

// V -OBJECT:: get DirectType 

// V-OBJECT::connect-vobject-to.thread 

// V-OBJECT::setParent 

// V-OBJECT::setNodeName 

/ / V-OBJECT::getNodeName 

// V-OBJECT::get VObjName 

// V-OBJECT::getName 

// V-OBJECT::reset VisitedFlag 

// V-OBJECT::set VisitedFlag 

/ / V-OBJECT::get VisitedFlag 

/ / V-OBJECT::get VObjComponentsN ame 

// V-OBJECT::display VersionNumber 

// V-OBJECT::get VersionNumber 

// V-OBJECT::dumpVObjSummary 

// V-OBJECT::setCreationDate 

// V-OBJECT::getCreationDate 

// V-OBJECT::setLock 

// V-OBJECT::get Worker 

// V-OBJECT::getCreator 

// V-OBJECT::set Worker 

// V-OBJECT::resetLasiOpTrue 

// V-OBJECT::resetLastOpFalse 

// V.OBJECT::getJasLoperation 

// V-OBJECT::releaseLock 

// V-OBJECT::getLockTime 

// V-OBJECT::getDescription 

// V -OBJECT: .list Children 

/ / V-OBJECT::longlistOperatorNames 

// V-OBJECT::listOperatorName$ 

// V-OBJECT::updateDescription 
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// V-OBJECT::addCOMPONENTNode 

// V.OBJECT::deleieChildNode 

// V.OBJECTr.addChildNode 

II V.OBJECTr.geiPareni 

II V~OBJECT::getCOMPONENT 

/ / V.OBJECT::dumpSubtree 

II V.OBJECT::releaseLockSubiree 

II V.OBJECTr.geiChildren 

II V.OBJECTr.geiChildPir 

/ 1 V.OBJECTr.checkoutCOMPONENTNode 

II 

// Description 

// 

II methods for manipulating versioned objects 

// 

I / End 

// Interface Requirements 

#include <GlobalEntities .h> 

#include <Directory .h> 

#ifndef _VERSIONED_OBJECT_H 
#include ” versioned_object .h” 

#endif 

#ilndef — TRACERJI 
#include ”tracer.h” 

#endil 

#if ndef «JDDBDEFINES>H 
#include ”ddbdelines .h” 

#endif 

// Constructor // 

II End Interface Requirements 

extern Type *V_OBJECT.OType; 
extern userPtr; 



V_OB J ECT: : V_OB J ECT( APL *theAPL) : Object(theAPL) 

// Summary 

// 

// This is an activation constructor required by ONTOS . 

// ONTOS calls the activation constructor anytime an object 
II is brought into memory . Note the constructor passes 
II theAPL to the base class APL constructor . 
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// 

// Parameter 

// 

// theAPL 

II 

// A pointer to an APL (for Activation Parameter List) a 
II structure. 



{ 

II empty by design 

}; 

// End 

// Constructor // 

VDBJECT::VDBJECT(int versionNum) 

// Summary 

II 

II Parameter 

// 

II Functional Description 

// 

{ 

initDirectType(V^OBJECT>OType); 
theVersionNumber = versionNum; 
creationDate = setCreationDateQ; 
lockTime = 0; 
last_op_checkin = TRUE; 
visited = FALSE; 

creator = new char [strlen(userPtr) + l]; 

strcpy (creator, userPtr); 

worker = (char *)0; 

node_name = (char *)0; 

theDescriptionPtr.initToNullQ; 

theCOMPONENTPtr.initToNullQ; 

theThreadPtr.initToNull(); 

theParentPtr.initToNull(); 

List *newChildList = new List(V>OBJECT>OType); 
newChildList — ► putObject(); 
theChildPtr.Reset(newChildList, this); 
putObjectQ; 

}; 



// End 

// Member Function (in lieu of destructor)// 
void V_OBJECT::Destroy(Boolean aborted) 
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// Summary 

// 

// This one is semi tricky. Destroy redefined the Destroy 
If function inherited from the class CleanupObj. DestroyQ 
II is used to delete CleanupObj objects and those of all its 
II derived classes. In defining any class that is directly 
j j or indirectly derived from CleanupObj, provide the 
II function DestroyfBoolean aborted) in place of a destructor 
II if there is any special processing required when the 
II object’s memory is deallocated. 

// 

II Parameter 

// 

II aborted 

// 

II If Destroy() is called as a result of an abort , aborted 
II is set to TRUE ; if it is called to delete the object for 
II other reasons, aborted is set to False. 

// 

II Functional Description 

// 

II CleanupObj in effect provides an audit trail of the 
II creation of all stack-based instances of its derived 
II classes, so that they can be cleanly deleted in the 
II case of an abort during exception handling. Hence 
II the Destroy function. 



{ 

Object::Destroy(aborted); 

}; 

// End 

// Member Function // 

Type* V_OBJECT::getDirectType() 

{ 

return VX)BJECT_OType; 

} 

// Member Function // 

void V.OBJECT::connect_vobject Jto thread (THREAD *threadPtr) 

{ 

theThreadPtr.Reset(threadPtr,this); 

putObject(); 

} 

void V.OBJECT::setParent(V_OBJECT *parent) 

{ 

theParentPtr.Reset(parent,this); 
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putObjectQ; 

} 

void V_OBJECT::setNodeName(char *tree Jiode_name) 

{ 

char * token = (char *)0; 

token = strrchr(tree .node _name,V); 

if (token) 

{ 

node-name = new char[strlen(token)-f 1]; 
strcpy (node-name, token); // token in the subtree 
node_name++; // discard period (.) 

} 

else 

{ 

nodejiame = new char [strlen(tree-node_name)-fl]; 
strcpy(node_name,tree_node-name); // must be root root . 

} 

putObject(); 

} 

char *V_OBJECT::getNodeName() 

{ 

return node-name; 

} 

char * V_OBJECT::getName() 

{ 

char *name; 

Directory ^directory; 



if(!this) 

{ 

cerr "<ERR0R: cannot get the name of a null V_OB JECT>\n"; 
return NULL; 

} 

if (ItheThreadPtr) 

{ 

cerr <C "<ERR0R: cannot display the name of a null thread>\n" 
return NULL; 

} 

else 

{ 

THREAD *myThreadPtr = (THREAD*) theThreadPtr.Binding(this); 
name = myThreadPtr — ► Name(); 

OC-getNameComponents(name, ^directory, fcname); 
return name; 

} 
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// Member Function // 



void V_OBJECT::getVObjName() 

{ 

char *name; 

Directory ^directory; 

if(!this) 

{ 

cerr <C "<ERROR: cannot get the name of a null VJDB JECT>\n"; 
return; 

} 

if (ItheThreadPtr) 

{ 

cerr C "<ERRQR: cannot display the name of a null thread>\n M ; 
return; 

} 

else 

{ 

THREAD *myThreadPtr = (THREAD*) theThreadPtr.Binding(this); 
name = myThreadPtr — ► Name(); 

OC_getNameComponents(name, ^directory, fename); 
cout <C name <C M \n"; 

} 



// Member Function // 

void V_OBJECT::getVObjComponentsName() 

{ if(!this) 

{ 

cerr "<ERROR: cannot get the names of a null V_0B JECT>\n"; 
return; 

} 

if (ItheCOMPONENTPtr) 

{ 

cerr "<This v_object does not have an COMPONENT component>\n"; 
return; 

} 

else 

{ 

COMPONENT *myCOMPONENTPtr = (COMPONENT*) theCOMPONENTPtr.Binding(this); 
myCOMPONENTPtr — ♦ getComponentNames(); 

} 



// Member Function // 



void V-OBJ ECT : :display VersionNumber() 
// Summary 
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// 

// This function displays the version number of an object. 



{ 

cout <C theVersionNumber -C M \n M ; 

}; 

int V_OBJECT::getVersionNumber() 

{ 

return theVersionNumber; 

} 

// End 



// Member Function // 

void V_OBJECT::dumpVObjSummary() 

{ 

// displayVersionNumberf); 
cerr "Date: 

cout <C ctime(&;creationDate); 
cerr <C "Creator: "; 

cout < getCreator() "\n"; 
cerr "Checked out out by 
if (worker) 

{ 

cout worker "\n"; 

} 

else 

cout < "NONE \n"; 
cerr <C "LockTime: 
if (!lockTime==0) 

cout ctime(fclockTime); 
else 

cout < "HONE\n\n"; 
cerr <C "\n" 

<C M Description\n" 

< M ================================\n\n" 

getDescription(); 

} 

//Member Function // 

time.t V_OB J ECT : :setCreationDate() 

{ 

time-t mytloc=0; 
time-t theTime; 

return theTime = time(mytloc); 

} 



299 



//Member Function // 



void VJ3BJECT::setLock() 

{ 

lockTime = setCreationDate(); 

} 

//Member function// 

char *VJ3BJECT::getWorker() 

{ 

return worker; 

} 

/ / Member function// 

char *V_OBJECT::getCreator() 

{ 

return creator; 

} 

// Member function// 

void V _0 B J ECT : :set Worker ( ) 

{ 

char *temp_worker = new char [strlen(userPtr)-f 1]; 

strcpy(tempjworker,userPtr); 

if (worker) 

{ 

cerr <C "resetworker — > from "<C get\Vorker() <C M to "<C temp.worker <"\ n ”; 
delete worker; 

} 

else 

cerr <C "setworker — > to " temp- worker <C M \n"; 

worker = new char[strlen(temp_worker)-bl]; 
strcpy ( worker, temp_worker); 

} 

//Member Function // 

void V_OBJECT::resetVisitedFlag() 

{ 

visited = FALSE; 

} 

void V.OBJECT::setVisitedFlag() 

{ 

visited = TRUE; 

} 



Boolean V_OBJECT::getVisitedFlag() 
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{ 

return visited; 

} 

I/ Member Function // 

void V .OBJ ECT::reset Last OpTrueQ 

{ 

last.op.checkin = TRUE; 

} 

void V_OBJECT::resetLastOpFalse() 

{ 

lastjop.checkin = FALSE; 

} 

// Member Function // 

Boolean V.OBJECT::get Jast_operation() 

{ 

return last.op.checkin; 

} 

// Member Function // 

int V.OBJECT::releaseLock() 

{ 

if ([worker) 

{ 

last.op.checkin = TRUE; 
lockTime = 0; 
return SUCCESS; 

} 

if (strcmp(userPtr,getWorker())==0) 

{ 

lastjop .check in = TRUE; 
lockTime = 0; 
delete worker; 
worker = (char *)0; 
return SUCCESS; 

} 

else 

{ 

cerr "<ERR0R: Only " <C getWorker() " May unlock this object! . . . Aborting>\n" 
return FAILED; 

} 

} 

II Member Function // 
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time-t V-OB J ECT: ;getCreationDate() 

{ 

return creationDate; 

} 

// Member Function // 

time-t V-OBJECT::getLockTime() 

{ 

return lockTime; 

} 

// Member Function // 

void V_OBJECT::getDescription() 

/ / Summary 

// 

// This function displays the description of an object 

// 

{ 

if(!this) 

{ 

cout C "<ERROR: cannot get the description of a null V_QBJECT>\n M ; 
return; 

} 

if (ItheDescriptionPtr) 

{ 

cerr M <This v_object does not have a description>\n"; 
return; 

} 

else 

{ 

TEXT-OBJECT *myTextObjectPtr = 

(TEXT -OBJ ECT*) theDescriptionPtr.Binding(this); 
myTextObjectPtr -^text(cout); 

} 

} 

// Member Function // 

void V-OBJECT::updateDescription(char *fileName, ifstream&; input-file_stream) 

{ 

if(!this) 

{ 

cerr <C "<ERR0R: cainnot update the description of a null V_DBJECT>\n"; 
return; 

} 



302 



else 

{ . 

if (strcmp(userPtr,getCreator())==0) 

{ 

if(!theDescriptionPtr) 

{ 

TEXT.OBJECT *textObjectPtr = new TEXTDBJECT(); 
textObjectPtr — ► append(fileName, input-file jstream); 
textObjectPtr — ►putObjectO; 
theDescriptionPtr.Reset(textObjectPtr, this); 

} 

else 

{ 

TEXT-OBJECT * textObjectPtr = 

(TEXT-OBJECT*) theDescriptionPtr.Binding(this); 
textObjectPtr — ► resetTheTextQ; 
textObjectPtr — *■ append(fileName, input -file jstream); 

} 

} 

else 

cerr "<ERR0R: only " <C getCreator() <C M may update description. Aborting. . . >\n"; 

} 

putObject(); 

} 

// Member Function // 

void V_OBJECT::addCOMPONENTNode(COMPONENT *myCOMPONENTPtr) 

{ 

if (!this) 

{ 

cerr <C M <ERR0R: cannot set the COMPONENT node of a null V_0BJECT\n"; 
return; 

} 

if (ImyCOMPONENTPtr) 

{ 

cerr <C "<ERR0R: cannot give to a V-OBJECT a null C0MP0NENT>\n"; 
return; 

} 

theCOMPONENTPtr.Reset(myCOMPONENTPtr, this); 
putObject(); 

} 

// Member Function // 

void V_OBJECT::deleteChildNode( V-OBJECT *myV.ObjPtr) 

{ 

List *child_nodes = (List *)theChildPtr.Binding(this); 

if (Ithis) 

{ 



303 



cerr <C M <ERROR: cannot delete the child node of a null V-0BJECT\n" 
return; 

. } 

if (!child_nodes) 

{ 

cerr <C "<ERROR: cannot remove a HULL child>\n"; 
return; 

} 

long location =0; 

if (child-nodes— ►isMember(myV-ObjPtr)) 

{ 

location = child-nodes— ►Index(myV-ObjPtr); 
child-nodes— ►Remove(location) ; 
child-nodes— ►putObjectO ; 

} 



// Member Function // 

void V_OBJECT::addChildNode( V-OBJECT *myV.ObjPtr) 

{ 

List *childjiodes = (List *)theChildPtr.Binding(this); 

if (Ithis) 

{ 

cerr "<ERR0R: cannot set the child node of a null V_0BJECT\n"; 
return; 

} 

if (!child_nodes) 

{ 

cerr <C "<ERR0R: cannot give to a V-OBJECT a null child>\n"; 
return; 

} 

child-nodes— ►Insert(myV-ObjPtr); 
child-nodes— ♦putObjectO; 



//Member Function // 

V-OBJECT * V-OBJ ECT : :get Parent () 

{ 

return (V-OBJECT *)(Entity *) theParentPtr.Binding(this); 

} 

COMPONENT *V_OBJECT::getCOMPONENT() 

{ 

return (COMPONENT *) (Entity *) theCOMPONENTPtr.Binding(this); 

} 

void V_OBJECT::listChildren() 

{ 
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if (!this) 

{ 

cerr "<ERROR: can not dump children of a null VJ3BJECT! >\n H ; 
return; 

} 

if(!theChildPtr) 

{ 

cerr C "<ERROR: can not print children of a null childPtr ! >\n"; 
return; 

} 

else 

{ 



List *child_nodes = (List *) theChildPtr.Binding(this); 

Listlterator ChildrenPtr(child modes); 

V -OBJECT tcnode; 

while(ChildrenPtr.moreDataQ) 

{ 

cnode = (V-OBJECT *) (Entity *) ChildrenPtr(); 

cerr <C "Operator: 

cout cnode— ►getNodeName(); 

//************ 

// following for loop provides spacing... 

j j *********** 

int i=0; 

for (i=0;i<(PRINT_VERSION_LOCATION-strlen(cnode— ►getNodeName()));i++) 
cout <c " 
cerr << "Version: 

cout C cnode— ►getVersionNumber(); 
cout <C "\n"; 

time.t locktime = cnode— ►get LockTimeQ; 

cerr <C "Locktime is: " <C ctime(&locktime) "\n"; 

} 

return; 

} 

} 

void V_OB J ECT : ilonglistOperatorN ames() 

{ 



if (!this) 

{ 

cerr "<ERROR: can not dump operators of a null VjOBJECT! >\n"; 
return; 

} 

if(!theChildPtr) 

{ 

cerr 4 ; "<ERROR: can not print list of a null childPtr ! >\n"; 
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return; 



} 

else 

{ 



List *child«nodes = (List *) theChildPtr.Binding(this); 

Listlterator ChildrenPtr(child_nodes); 

V.OBJECT *cnode; 
while(ChildrenPtr.moreData()) 

{ 

cnode = (V.OBJECT *) (Entity *) ChildrenPtrQ; 

// if (cnode->getChildPtr()) 

//{ 

// cnode-> longlistOperatorN ames(); 

//} 

cerr <C "Operator: 

cout cnode— ►getNodeName(); 

/ /************ 

// following for loop provides spacing ... 

// *********** 
int i=0; 

for (i=0;i<(PRINT.VERSlONXOCATION-strlen(cnode— ►getNodeName()));i++) 
cout 

cerr <C "\nVersion: 

cout <C cnode— ►getVersionNumberQ; 

cout < "\n"; 

time.t locktime = cnode— ►getLockTime(); 

cerr "Locktime is: M ctime(&locktime) "\n"; 

} 

return; 

} 

} 

void V_OBJECT::listOperatorNames() 

{ 

Boolean node.was.visited = FALSE; 
if (!this) 

{ 

cerr <C "<ERR0R: can not dump children of a null V_0B JECT ! >\n"; 
return; 

} 

if(!theChildPtr) 

{ 

cerr M < ERROR: can not print children of a null childPtr ! >\n M ; 

return; 

} 

else 

{ 

List *child_nodes = (List *) theChildPtr.Binding(this); 

Listlterator ChildrenPtr(child_nodes) ; 

V.OBJECT *cnode; 
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int index = 1; 

while(ChildrenPtr.moreDataQ) 

{ 

cnode = (V.OBJECT *) (Entity *) ChildrenPtr(); 
node_was_visited = cnode— ►getVisitedFlagQ; 
if (cnode— ►getChildPtr()) 

{ 

cnode— ► listOperatorNames(); 

. } 

if (node_was_visited &;& index >1) 

{ 

cnode— ►reset VisitedFlag(); 
cnode— ►putObject(); 

break; 

} 

else 

{ 

cnode— ►reset VisitedFlag(); 
cnode— ►putObjectQ; 

} 

if (index ==1) 

cnode— ►set VisitedFlag(); 
index+4- ; 

cerr <C “Operator: M ; 

cout <C cnode— ►getNameQ; 

/ j ************ 

II following for loop provides spacing ... 

If *********** 

II int i—0; 

1 1 for (i=0;i<(PRINT-VERSION-LOCATION-strlen(cnode->getName()));i++) 

/ 1 cout « * 

cerr <C “\nVersion: 

cout cnode— ►get VersionNumber(); 

cout C “\n"; 

time_t locktime = cnode— ►get LockTimeQ; 

cerr <C “Locktime is: “ <C ctime(&;locktime) <C "\n“; 

} 

reset V isi t ed F 1 ag ( ) ; 
putObject(); 

return; 

} 

} 

void V_OB J ECT: :releaseLockSubtree() 

{ 

List *child_nodes = (List *) theChildPtr.Binding(this); 

Listlterator ChildrenPtr(child_nodes); 

V.OBJECT *cnode; 

while(ChildrenPtr.moreData()) 

{ 
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cnode = (V.OBJECT *) (Entity *) ChildrenPtrQ; 
if (cnode— ►releaseLock()) 
cnode— ►putObjectQ; 
else 

{ 

cerr <C M <Error while unlocking M cnode— ►getNameO <C M Aborting. . .>\n"; 

break; // should try to unlock other siblings and their children. 

} 

if (cnode— ►getChildPtr()) 

{ 

cnode—*' releaseLockSubtreeQ; 

} 

} 

return; 

} 

void V_OBJECT::dumpSubtree(char *file.write.option) 

{ 

Boolean node.was .visited = FALSE; 

Boolean file.operation successful = FALSE; 

Boolean write.operation = FALSE; 

if (strcmp(file.write_option,"w")==0 || strcmp(file_write.option,"W")==0) 
write.operation = TRUE; 
if (!this) 

{ 

cerr "<ERROR: cam not dump children of a null V.OB JECT ! >\n"; 
return; 

} 

if(!theChildPtr) 

{ 

cerr <C M <ERROR: cam not print children of a null childPtr ! >\n M ; 
return; 

} 

else 

{ 

List *child_nodes = (List *) theChildPtr.Binding(tkis); 

Listlterator ChildrenPtr(child jiodes) ; 

V.OBJECT *cnode; 
int index = 1; 

while (cnode = (V.OBJECT *) (Entity *)ChildrenPtrQ) 

{ 

node.was.visited = cnode— ►getVisitedFlag(); 
if (cnode— ►getChildPtr()) 

{ 

cnode— ► dumpSubtree(file.write joption) ; 

. } 

if (node.was.visited hh index > 1) 

{ 

cnode— ►resetVisitedFlagQ; 
cnode— ►putObjectQ; 
break; 
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} 

else 

{ 

cnode— ►reset VisitedFlag(); 
cnode— putObjectQ; 

} 

if (index ==1) 

cnode— ►setVisitedFlagQ; 
else 
{ 

cnode— ►reset VisitedFlag(); 
cnode— ►putObjectQ; 

} 

index++; 

long cobject Jocktime = 0; 

cobject Jocktime = cnode— getLockTimeQ; 

if (cobjectJocktime>0) // prevent checkout 

{ 

if (strcmp(file_write_option, M w")==0) // change ”w” to ”r” 

{ 

cerr "<ERR0R: Module " <C cnode— ►getNodeName() 

<C M locked by : M <C cnode— getWorker() 

<C " Resetting write option to read-only>\n M ; 
strcpy(file_writejDption, M r H ); 

} 

cerr <C "CCaution: " cnode— getNodeName() 

-C " is locked. > \n M "Date Locked: " 

< ctime(&cobjectJocktime) 

-C "Node checked out in read-only mode\n”; 

} 

cerr < "NODENAME — > " <C cnode— getNodeName() <"\n"; 
cerr <C "Version: " <C cnode— get Version Number() "\n\n"; 

file.operationjsuccessful = cnode— checkoutCOMPONENTNode(file .write .option); 
if ((file.operationjsuccessful) && 

((strcmp(file_write_option,"W")==0) || 

(strcmp(file_write_option,"w H )==0))) 

{ 

cnode— setLockQ; 
cnode— set WorkerQ ; 
cnode— resetLastOpFalse() ; 
cnode— putObject(); 

, } 

if (write.operation) 

strcpy(fUe.write_option,"w"); 

} 

reset VisitedFlag() ; 
putObject(); 

return; 

} 

} 
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List * V_OBJECT::getChildren() 

{ 

List *tempJist = (List *)theChildPtr.Binding(this); 
if (tempJist— ►Cardinality() > 0) 
return tempJist; 
else 

return NULL; 

} 

Boolean V_OBJECT::getChildPtr() 

{ 

List *tempJist = (List *)theChildPtr.Binding(this); 
if (tempJist— ►Cardinality() > 0) 
return TRUE; 
else 

return FALSE; 



// Member Function // 

Boolean V_OBJECT::checkoutCOMPONENTNode(char *file_write_option) 

{ 

if (!this) 

{ 

cerr <C M <ERROR: cannot checkout COMPONENT nodes of a null V_0BJECT\n"; 
return FAILED; 

} 

if (ItheCOMPONENTPtr) 

{ 

cerr <C M <ERR0R: cannot get the source code from a null C0MP0NENT>\n H ; 
return FAILED; 

} 

else 

{ 

COMPONENT *myCOMPONENTPtr = (COMPONENT*) theCOMPONENTPtr.Binding(this); 
return (myCOMPONENTPtr — ► getComponentSource(file.write_option)); 

} 

} 
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// File Header 

// •• 

// .Filename : vobjectfunc.h 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author : Garry Lewis 

// : Drew Dwyer 

// .Compiler ; Glockenspiel C++ 2.1 

// •• 

// End header comments 

#if ndef _VOBJECTFUNC-H 
#def ine _VOBJECTFUNCJH 

// SCCS ID follows: will compile to place date/time stamp in object file 

static char vobjectfunc_h_SccsId[] = "$(#) vobjectfunc.h 1 . 3\t9/16/91 M ; 

/ / Contents 

// 

// VOBJECTFUNC 

II 

// Description 

// 

// Defines functions manipulating Versioned Objects 
// ( Operators ) as called by main() 

II 

II End 

// Interface Dependencies 

// 

II NONE 

II 

// End Interface Dependencies 

void list- operators _func(int, char *, char *, char *); 
void update_vobject_desc_func(int, char *,char *,char *,char *); 
void get_vobject_desc_func(int ,char *, char *,char *); 
void get.vobject.date Junc(int , char *,char *,char *); 
void get-vobject -versions -func(int , char *,char *); 
void get-vobject Jock_func(int, char *, char *, char *); 
void get_vobject-version_func(); 

void dump_vobjectjsummary_func(int , char *,char *,char *); 
voidget-vobject.psfile_func(int , char *, char *,char *, char *); 
void get-vobject -graphfile_func(int , char *,char *,char *, char *); 
void get-vobject impfileJunc(int , char *, char *,char *, char *); 
void get-vobject jspecfile-func (in t , char *,char *,char *, char *); 
void get _vobject-SOurcefile_func(int , char *,char *,char *, char *); 
void dump-vobject -files _func (in t , char *, char *,char *, char *); 
void dump_vobject_tree_func(int , char *, char *,char *, char *); 
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void long Jist-childrenJfunc(int, char *, char *, char *); 
void long Jist_parentsJunc(int, char *, char *, char *); 
void long Jist_operatorsJfunc(int, char *, char *, char *); 
void release .operator Jock iunc(int, char *, char *, char *); 
void release -subtree Jock Junc(int, char *, char *, char *); 
void add _vobject_and .subtree J‘unc(int , char *, char *); 

// Description 

// 

// list-operators June 

// 

// Provides a list of operators associated with a 
II subtree of a designated versioned-object. 

// 

If update-vobject-descjunc 

u 

II Updates the description text of a designated versioned 
II object. 

II 

II get-vobject-descjunc 

// 

/ / Provides a description of the designated versioned object. 

II 

II geLvobject-dateJunc 

1/ 

II Displays the date that the versioned object was created. 

// 

II get-vobject-versionsjunc 

// 

II Checks the thread and dtsplays the different versions. 

// 

II get-vobject Jock June 

1/ 

II Displays a 26 character text entry reflecting the time 
II and date that the versioned object was locked. 

// 

/ / get-vobject-versionjunc 

II 

II returns the version of the versioned object instance. 

// 

II dump -v object summary June 

// 

II displays predetermined attribute fields to stdout/stderr. 

// 

II get-vobject-psfilejunc 

1/ 

II rebuilds the CAPS postscript file to the PROTOTYPE 
II directory. 

II 

II get-vobject-graphfilejunc 

II 
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// rebuilds the CAPS graph file to the PROTOTYPE directory. 

// 

// get-vobject-impfilejunc 

n 

// rebuilds the CAPS implementation file to the PROTOTYPE directory. 

1 / 

II get-vobjectspecfilejunc 

// 

I/ rebuilds the CAPS specification file to the PROTOTYPE directory. 

// 

II geLvobjectsourcefileJunc 

// 

II rebuilds the CAPS source file to the PROTOTYPE directory. 

// 

// dump -v object -files June 

// 

II rebuilds all of the above files (of one operator) to the 
II PROTOTYPE directory. 

II 

// dump -V object -tree June 

II 

II rebuilds all existing TEXT-OBJECT attributes to the PROTOTYPE 
// directory for the entire decomposition of the root operator 
II down to the component operators. May be dumped in ” read only” 

// or ”read/write”. When dumped, all versioned objects are 
// locked for modification by other users. 

ll 

II longjist-childrenjunc 

ll 

II lists the node name and version number of children. 

// 

II long Jist-parents June 

// 

II lists the most current parent ( and that parents siblings). 

// 

1/ long-list-operatorsjunc 

// 

II lists the node name and version number of a node’s children. 

// 

II release-operator Jockjunc 

// 

II reset the locktime of a versioned operator. 

// 

II releasesubtreeJock-func 

u 

II reset the locktime of a versioned operator and all children 
II of that versioned operator. 

// 

II add-vobject-and subtree June 

// 

// the reverse of a dumping vobjects. this checks versioned 



313 



// objects back into the database, versioning them if necessary. 

// 

/! End Description 

#endif // end vobjectfunc header function 
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// File Header 

// •• 

// .Filename ; vobjectfunc.cx x 

//.SCCS ID ; 1.3 

// .Release No....: 1 

//.Date ; 9/16/91 

// .Author ; Garry Lewis 

/ / ; Drew Dwyer 

// .Compiler : Glockenspiel C++ 2.1 

// •• 

// End header comments 

// SCCS ID follows: will compile to place date/time stamp in object file 

static char vobjectfunc_cxx_SccsId[] = M C(#) vobjecttunc . exx 1 .3\t9/16/91“ 

// Contents 

// 

// list- 0 perators.func 
// update-vobject-desc-func 
// get.vobject-desc-func 
// get-vobject.date-func 
// get-vobject-versions-func 
// get-vobject Jock June 
// get-vobject-versionjunc 
// dump -v object summary June 
// get-vobject-psfilejunc 
// get-vobject -graph file June 
// get-vobject -imp file June 
// get-vobjectspecfilejunc 
// get-vobject source file June 
// dump -v object-files June 
// dump -v object-tree June 
// long Jist-children June 
// longjist-parentsjunc 
// long Jist-operators June 
// release-operatorJockJunc 
// release-subtree-lock June 
// add-vobject-andsubtreejunc 

n 

// Description 

II 

// Mis contains the functions for manipulating versioned objects 

// 

II End 

// Interface Dependencies 

// 



#include < stream. hxx> 
#include <List.h> 
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#include <Directory .h> 

extern "C — M { 

#include <stdlib.h> 

} 

#iindei -DIRECTORY JI 
#include "directory .h” 

#endif 

#ifndef _TREE_H 
#include ”tree.h” 

# end if 

#if ndef —TREENODE.H 
#include "treenode .h” 

# end if 

# if ndef _PROTOTYPE_H 
#inclnde ’’prototype .h” 

#endif 

#ifndef ..COMPONENT _H 
#include ” component . h” 

# end if 

#ifndef _VOBJECT-H 
#include ” versioned_object .h” 
# end if 

#ifndef -THREAD _H 
#include ’’thread.h” 

#endif 

#ifndef -VOBJECTFUNC_H 
#include ’’vobjectfunc .h” 
#endif 

#ifndef -DDBDEFINES.H 
# include ’’ddbdef ines .h” 
#endif 



// 

// End Interface Dependencies 



extern Type tTHREAD.OType; 
extern Directory ♦prototype.dir; 
PROTOTYPE ♦prototypeptr; 
THREAD *threadPtr; 
COMPONENT *COMPONENTPtr; 
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long vobjectJocktime =0; 



void list_operators_func(int number-arguments, char *proto_name, 

char *operator_name, char *versionstr) 

{ 

char *prototype_name = new char [strlen (proto-name) +5]; 
strcpy(prototype Jiame,proto_name); 
strcat(prototypeoiame,PROTOTYPE-EXT); 
switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PR0T0TYPE*)0C Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V-OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— ►currentO; 

cerr <C "Operator: M ; 

cout < vobjectPtr— +getName(); 

cerr <C M \nVersion: M ; 

cout vobjectPtr— ►getVersionNumber(); 

cout < "\n"; 

time-t lock time = vobjectPtr— ►getLockTimeQ; 

cerr <C "Locktime is: " <C ctime(&,locktime) <C "\n"; 

vobjectPtr — distOperatorNamesQ; 

} 

else 

{ 

cout "<Error getting thread in LIST OPERATORS: >\n 

} 

} 

else 

{ 

cout "<Error getting Prototype in LIST OPERATORS : >\n" 

} 

break; 
case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OC Jookup(operator_name); 
if (threadPtr) 

{ 

V .OBJECT *vobjectPtr; 

vobjectPtr = threadPtr— *version(atoi(versionstr)); 

cerr <C "Operator: 

cout <C vobjectPtr— +getName(); 
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cerr <C "\nVersion: "; 

cout vobjectPtr— +getVersionNumber(); 

cout <C M \n"; 

time-t locktime = vobjectPtr— ►getLockTime(); 

cerr <C "Locktime is: " <C ctime(&locktime) <C "\n"; 

vobjectPtr — ►listOperatorNames(); 

} 

else 

{ 

cout < "<Error getting thread in GET-VOBJECT-DESC : >\n"; 

} 

} 

else 

{ 

cout "< Error getting Prototype in GET_VOBJECT_DESC : >\n"; 

} 

break; 

default: 

cout "<ERR0R: invalid number args for get vobject descript ion>\n" 

} 

} 

void update_vobject_desciunc(int number-arguments, char *proto_name, 

char *operator-name, char ^filename, 
char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto-name)+5]; 
strcpy (prototype .name, protoaiame); 
strcat(prototype_name,PROTOTYPE_EXT); 

ifstream description Jile; 
description Jile.open(filename); 
if (!description_file) 

cout <C '^Description File not Found! >\n" 

-C "<Abnormal terminate from updates vobj ect_desc_func>\n"; 

else 

{ 

switch (number-arguments) 

{ 

case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V-OBJECT * vobjectPtr; 
vobjectPtr = threadPtr— ►currentO; 

vobjectPtr — ►updateDescription(filename, description Jile); 

} 

else 
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{ 

cout "<Error getting thread in UPDATELVOBJECT_DESC : >\n M ; 

} 

} 

else 

{ 

cout "<Error getting Prototype in UPDATE.VOBJECT.DESC : >\n"; 

} 

break; 
case 4: 

prototypeptr = (PROTOTYPE*)OC_lookup(prototype.name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 

{ 

V .OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— +version(atoi(versionstr)); 
vobjectPtr —»updateDescription(filename, description-file); 

} 

else 

{ 

cout <C ”<Error getting thread in UPDATE. VOB JECT_DESC : >\n"; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in UPDATE.VOB JECT.DESC : >\n"; 

} 

break; 

default: 

cout -C M <ERR0R: invalid number args for update vobject description>\n" 

} 

} 

} 

void get .vobject _desc Tunc (int number_arguments,char *proto_name, 

char *operator-name,char *versionstr) 

{ 

char *prototype_name = new char [strlen (proto-name) +5]; 
strcpy (prototype Jiame,proto_name); 
strcat(prototype .name, PROTOTYPE JEXT); 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPEt)OC Jookup(prototype-name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 
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{ 

V -OBJECT * vobjectPtr; 
vobjectPtr = threadPtr— ►currentQ; 
vobjectPtr — ►getDescriptionQ; 

} 

else 

{ 

cout <C "<Error getting thread in GET_VOBJECT_DESC : >\n"; 

} 

} 

else 

{ 

cout c "<Error getting Prototype in GET_VOBJECT_DESC : >\n M ; 

} 

break; 
case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V -OBJECT ♦vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobjectPtr — ►getDescriptionQ; 

} 

else 

{ 

cout <C "< Error getting thread in GET.VOBJECT.DESC: >\n"; 

} 

} 

else 

{ 

cout "<Error getting Prototype in GET-VOBJECT.DESC: >\n M ; 

} 

break; 

default: 

cout "<ERR0R: invalid number args for get vobject description>\n" 

} 

} 

void release .subtree Jock Junc(int number ^arguments, char *proto_name, 

char * operator .name, char ♦versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 
strcpy(prototype Jiame, proto jiame); 
strcat(prototype_name,PROTOTYPE-EXT); 

switch (number^arguments) 

{ 

case 2: 
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prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V.OBJECT *vobjectPtr; 
vobjectPtr = threadPtr— ►currentQ; 

if (vobjectPtr— ►releaseLock()) 

{ 

vobjectPtr— ► putObject(); 
vobjectPtr— ►releaseLockSubtree(); 

} 

else 

cerr <C "<Error: Couldn't unlock " vobjectPtr— ►getName() 

M Aborting releaseLock for rest of subtree>\n"; 

} 

else 

{ 

coiit -C "<Error getting thread in SUBTREE. RELEASE-LOCK : >\n*'; 

} 

} 

else 

{ 

cout "<Error getting Prototype in SUBTREE. RELEASE.LQCK: >\n"; 

} 

break; 
case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 

{ 

V.OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— >version(atoi(versionstr)); 
if (vobjectPtr — ^releaseLock ()) 

{ 

vobjectPtr— ►putObjectO; 
vobjectPtr — ►releaseLockSubtree(); 

} 

else 

cerr <C M <Error: Couldn't unlock " <C vobjectPtr— ►getNameQ 

<C " Aborting releaseLock for rest of subtree>\n"; 

} 

else 

{ 

cout M <Error getting thread in SUBTREE. RELEASE-LOCK : >\n M ; 

} 
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else 

{ 

cout -c "<Error getting Prototype in SUBTREELRELEASE.LOCK: >\n"; 

} 

break; 

default: 

cout <C "<ERROR: invalid number args for subtree release lock>\n M ; 

} 

} 

void release .operator Jock_func(int number-arguments, char *protO-name, 

char *operator_name,char *versionstr) 

{ 

char ♦prototype-name = new char [strlen(proto.name)+5]; 
strcpy (prototype .name, pro to .name) ; 
strcat(prototype_name,PEOTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype-name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD ♦)OCJookup(operator_name); 
if (threadPtr) 

{ 

V-OBJECT ♦vobjectPtr; 
vobjectPtr = threadPtr— +current(); 
if (vobjectPtr— +releaseLock()) 
vobjectPtr— ►putObjectQ; 
else 

cerr <C "<Error: Couldn't unlock M <CvobjectPtr—>getName() 

< " Aborting release lock>\n"; 

} 

else 

{ 

cout "<Error getting thread in RELEASEJLOCK : >\n"; 

} 

} 

else 

{ 

cout <C M <Error getting Prototype in RELEASEXOCK : >\n"; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC -lookup (pro totypejiame); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OC_lookup(operator_name); 
if (threadPtr) 

{ 
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V -OBJECT *vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
if (vobjectPtr— *releaseLock()) 
vobjectPtr— *putObject(); 
else 

cerr <C M <Error: Couldn't unlock "<C vobjectPtr— ►getNameO 

M Aborting release lock>\n"; 

} 

else 

{ 

cout "<Error getting thread in RELEASE-LOCK : >\n"; 

} 

} 

else 

{ 

cout "<Error getting Prototype in RELEASE-LOCK: >\n"; 

} 

break; 
default : 

cout <C "<ERR0R: invalid number args for release lock>\n"; 

} 

} 

void get-vobject_date_func(int number-arguments, char *proto_name, 

char ^operator -name, char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 
strcpy (prototype -name, proto-name) ; 
strcat(prototype-name,PROTOTYPE_EXT); 
time-t creation-date; 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC -lookup (prototype-name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator-name); 
if (threadPtr) 

{ 

V-OBJECT * vobjectPtr; 
vobjectPtr = threadPtr— *current(); 
creation-date = vobjectPtr — ►getCreationDateQ; 
cout <C ctime(&:creation-date) M \n M ; 

} 

else 

{ 

cout <C "<Error getting thread in GET-VOBJECT-DATE: >\n"; 

} 

} 

else 
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{ 

cout <C "<Error getting Prototype in GET_VOBJECT_DATE : >\n M ; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 

{ 

V -OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
creation.date = vobjectPtr — ►getCreationDate(); 
cout <£ ctime(fccreation.date) M \n M ; 

} 

else 

{ 

cout <c "<Error getting thread in GET_VOBJECT_DATE: >\n M 

} 

} 

else 

{ 

cout c M <Error getting Prototype in GET-VOB JECT-DATE : >\n"; 

} 

break; 

default: 

cout < "<ERROR: invalid number args for get vobject date>\n M ; 

} 



void get_vobject_versions_func(int number-arguments, char *proto-name, 

char *operator_name) 

{ 

char * prototype-name = new char [strlen(proto-name)+5]; 

strcpy(prototype_name,proto_name); 

strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator .name); 
if (threadPtr) 

{ 

threadPtr— ►displayThreadVersions(); 

} 

else 

{ 
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cout <C "<Error getting thread in GET-VOB JECT- VERSIONS : >\n"; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in GET-VOB JECT- VERS IONS : >\n"; 

} 

break; 

default: 

cout < "<ERROR: invalid number args for get vobject VERSIONS>\n M ; 

} 

} 

void get.vobject Jock Junc(int number-arguments, char *proto_name, 

char *operator .name, char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 
strcpy(prototypeJiame, proto _name); 
strcat(prototype_name,PROTOTYPE_EXT); 
time_t lock_time; 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype-name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operatorjiame); 
if (threadPtr) 

{ 

V-OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— ►currentQ; 

lock-time = vobjectPtr — ►getLockTime(); 

cerr <C "Locktime: "; 

cout <C ctime(&lock-time) <C "\n"; 

} 

else 

{ 

cout <C "<Error getting thread in GET-VOB JECT-LOCK : >\n'‘; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in GET- VOBJECT- LOCK : >\n"; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototypejiame); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operatorjiame); 
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if (threadPtr) 

{ 

V -OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
lock-time = vobjectPtr — ►getLockTimeQ; 
cerr <C "Locktime: 
cout ctime(&lock-time) M \n"; 

} 

else 

{ 

cout <c "<Error getting thread in GET-VOBJECT-LOCK: >\n"; 

} 

} 

else 

{ 

cout <c "<Error getting Prototype in GET-VOBJECT-LOCK :>\n"; 

} 

break; 

default: 

cout "<ERROR: invalid number args for get vobject lock>\n M ; 



} 

void get .vobject .version JuncQ 

{ 

cout "Hot implemented. Unclear specs for get version of vobject\n" 

} 

void dump-vobject_summary-func(int number-arguments, char *proto-name, 

char *operator_name,cliar *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 
strcpy(prototype_name, proto-name); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype-name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 

{ 

V-OBJECT * vobjectPtr; 
vobjectPtr = threadPtr— ►currentO; 
vobjectPtr—^dumpVObjSummaryO; 

} 

else 

{ 
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cout <C "<Error getting thread in G ET_ VO BJECT- SUMMARY : >\n"; 

} 

} 

else 

{ 

cout M <Error getting Prototype in GET-VOB JECT-SUMMARY : >\n" ; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC _lookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V-OBJECT tvobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobjectPtr— ►dumpVObjSummaryQ; 

} 

else 

{ 

cout < "<Error getting thread in GET.VOBJECT.SUHHARY : >\n"; 

} 

} 

else 

{ 

cout <C M <Error getting Prototype in GET-VOB JECT_SUMMARY: >\n"; 

} 

break; 

default: 

cout <C H <ERR0R: invalid number axgs for get vobject summary >\n"; 

} 

} 

void get_vobject_psfile_func(int number-arguments, char *proto_name, 

char ^operator .name, char *file_write-option,char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)+5]; 

strcpy(prototype-name,proto_name); 

strcat(prototype jiame,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype-name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V_OBJECT *vobjectPtr; 
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vobjectPtr = threadPtr— ►currentO; 

vobject Jocktime = vobjectPtr— ►getLockTimeO; 

if (vobject Jocktime>0) // prevent checkout 

{ 

if (strcmp(file_write-option, M w")==0) // change ”w” to ”r” 

{ 

cerr <C "<ERROR: Module " <C vobjectPtr— +getNodeName() 

< " locked by : " vobjectPtr— ►get Worker() 

<C •• Resetting write option to read-only>\n"; 
strcpy(file_write .option, "r"); 

} 

cerr <C "CCaution: " vobjectPtr— ►getNodeNameQ 

<C " is locked. > \n" <C "Date Locked: " 

< ctime(&vobject Jocktime) 

"operator files checked out in read-only mode\n"; 

} 

else 

cerr "NODENAME > " <C vobjectPtr— ►getNodeNameO <C'\n"; 

COMPONENTPtr =vobjectPtr— getCOMPONENT(); 
if ((COMPONENTPtr— ►getPSfile(file_writejoption)) 
((strcmp(file_writejoption,"W M )==0) || 
(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— ►putObject(); 

} 

} 

else 

{ 

cout "<Error getting thread in GET_ VOBJECT- PS : >\n"; 

} 

} 

else 

{ 

cout "<Error getting Prototype in GET-VOBJECT-PS : >\n"; 

} 

break; 
case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype-name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V-OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobject Jocktime = vobjectPtr— ►getLockTimeQ; 
if (vobject Jocktime>0) // prevent checkout 
{ 
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if (strcmp(file-write_option, M w M )==0) // change ”w” to ”r” 

{ 

cerr <C "<ERROR: Module M C vobjectPtr— ►getNodeNameQ 
<C " locked by : M <C vobjectPtr— ►getWorkerO 

<£ " Resetting write option to read-only>\n M ; 
strcpy(file_writej3ption,"r"); 

} 

cerr "<Caution: " <C vobjectPtr— ►getNodeName() 

< " is locked. > \n" 

-C "Date Locked: "<C ctime(fcvobject Jocktime) 

"operator files checked out in read-only mode\n"; 

} 

else 

cerr < "MODEMAME > " < vobjectPtr— getNodeName() <"\n"; 

if ((strcmp(file_write-option,"W")==0) || 
(strcmp(file.writejDption,"w")==0)) 

{ 

vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— ►putObjectO ; 

} 

COMPONENTPtr = vobjectPtr-+getCOMPONENT(); 
COMPONENTPtr — ►getPSfile(file_writejDption); 

} 

else 

{ 

cout "<Error getting thread in GET-VOBJECT.PS : >\n"; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in GET-VOBJECT-PS>"; 

} 

break; 

default: 

cout "<ERROR: invalid number args for get vobject PS>\n"; 

} 



} 



void get_vobject_graphfileJunc(int number-arguments, char *proto-name, 

char *operator-name,char *file_write-option,char *versionstr) 

{ 

char *prototype_name — new char [strlen(proto_name)-f 5]; 
strcpy (prototype -name, pro to_name); 
strcat(prototype jiame, PROTOTYPE JSXT); 

switch (number-arguments) 

{ 
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case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V -OBJECT * vobjectPtr; 
vobjectPtr = threadPtr— ►currentO; 
vobject Jocktime = vobjectPtr— ►get LockTimeQ; 
if (vobjectJocktime>0) // prevent checkout 
{ 

if (strcmp(filejwrite_option,"w")==0) // change n w” to ”r” 

{ 

cerr <C "<ERR0R: Module M <C vobjectPtr— ►getNodeNameO 
" locked by : •• <C vobjectPtr— ►get Worker() 

< " Resetting write option to read-only>\n"; 
strcpy(file_write_option,”r"); 

} 

cerr "<Caution: " <C vobjectPtr— ►getNodeNameO 

<C " is locked. > \n" <C "Date Locked: " 

< ctime(&vobject Jocktime) 

"operator files checked out in read-only mode\n" 

} 

else 

cerr <C "NODENAME > " <C vobjectPtr— ►getNodeNameO <"\n"; 

COMPONENTPtr =vobjectPtr-+getCOMPONENT(); 
if ((COMPONENTPtr— ►getGRAPHfile(file-writejoption)) kk 
((strcmp(file_writejoption,"W")=:=0) || 
(strcmp(file-write-option,"w")==0))) 

{ 

vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— ►putObject(); 

} 

} 

else 

{ 

cout < "<Error getting thread in GET_VOBJECT_GRAPH:>\n''; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in GET.VOB JECT.GRAPH : >\n"; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 



330 



threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V -OBJECT *vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobject Jocktime = vobjectPtr— ►getLockTime(); 
if (vobjectJocktime>0) // prevent checkout 
{ 

if (strcmp(file-write_option,"w")==0) // change ”w ” to ”r” 

{ 

cerr <C "<ERR0R: Module " <C vobjectPtr— ►getNodeNameQ 
M locked by : " vobjectPtr— ♦get Worker() 

M Resetting write option to read-only >\n"; 
strcpy(file.write .option, M r M ); 

} 

cerr "<Caution: ” <C vobjectPtr— ►getNodeNameO 

< " is locked. > \n" 

"Date Locked: "<C ctime(&vobject Jocktime) 

<C "operator files checked out in read-only mode\n"; 

} 

else 

cerr "NODENAME > " <C vobjectPtr— ►get NodeName() <C"\n"; 

if ((strcmp(file-write-option,"V")==0) || 
(strcmp(file_writejoption,"w")==0)) 

{ 

vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalseQ; 
vobjectPtr— ►putObjectQ; 

} 

COMPONENTPtr = vobjectPtr— getCOMPONENT(); 
COMPONENTPtr — ►getGRAPHfile(file-write_option); 

} 

else 

{ 

cout <C "<Error getting thread in GET_VOBJECT_GRAPH : >\n"; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in GET_VOBJECT_GRAPH>"; 

} 

break; 

default: 

cout "<ERROR: invalid number args for get vobject GRAPH>\n"; 

} 



} 

void get -vobject Jmpfile_func(int number-arguments, char *proto_name, 

char * operator _name, char *file_write_option,char *versionstr) 
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{ 

char *prototype_name = new char [strlen(proto_name)+5]; 
strcpy (prototype .name, proto jQame); 
strcat(prototype-name,PROTOTYPE_EXT); 

switch (number^arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC_lookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V -OBJECT * vobjectPtr; 
vobjectPtr = threadPtr— ►currentO; 
vobject Jocktime = vobjectPtr— ►get LockTime(); 
if (vobjectJocktime>0) // prevent checkout 

{ 

if (strcmp(file-write-option, M w H )==0) // change n w n to ”r” 

{ 

cerr "<ERROR; Module M vobjectPtr— »getNodeName() 

" locked by : M vobjectPtr— ►get Worker() 

" Resetting write option to read-only>\n"; 
strcpy (file_writej3ption,"r M ); 

} 

cerr "CCaution: " <C vobjectPtr— ►getNodeName() 

<C " is locked. > \n" <C "Date Locked: " 

<C ctime(&vobject Jocktime) 

< "operator files checked out in read-only mode\n" 

} 

else 

cerr <C "HODENAHE > " vobjectPtr— ► get NodeName() <C"\n"; 

COMPONENTPtr =vobjectPtr— getCOMPONENT(); 
if ((COMPONENTPtr— ►getIMPfile(file_writejoption)) SzSz 
((strcmp(file_write-option, M W M )==0) || 
(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► reset Last Op False(); 
vobjectPtr— *putObject(); 

} 

} 

else 

{ 

cout "<Error getting thread in GET_VOBJECT_IHP : >\n"; 

} 

} 

else 

{ 
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cout <C "<Error getting Prototype in GET.VOBJECT.IMP: >\n"; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V.OBJECT *vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobject Jocktime = vobjectPtr— ►getLockTimeQ; 
if (vobjectJocktime>0) // prevent checkout 

{ 

if (strcmp(file_write.option,"w")==0) // change ”w” to ”r” 

{ 

cerr <C "<ERR0R: Module " <C vobjectPtr— ►getNodeNameQ 
M locked by : " vobjectPtr— ^ get Worker () 

<C " Resetting write option to read-only>\n M ; 
strcpy(file_writejoption,"r M ); 

} 

cerr "<Caution: " <C vobjectPtr— ►getNodeNameQ 

" is locked. > \n" 

< ^ "Date Locked: "*C ctime(&;vobject Jocktime) 

< "operator files checked out in read-only mode\n" 

} 

else 

cerr "NODEHAME > " <C vobjectPtr— >getNodeName() <C"\n"; 

if ((strcmp(file_write.option,"W")==0) || 
(strcmp(file.writejoption,"w")==0)) 

{ 

vobjectPtr — > setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalseQ; 
vobjectPtr— ►putObjectO; 

} 

COMPONENTPtr = vobjectPtr-^getCOMPONENT(); 
COMPONENTPtr — ►getIMPfile(file_write_option); 

} 

else 

{ 

cout "<Error getting thread in GET. VOBJECT. IMP: >\n"; 

} 

} 

else 

{ 

cout "<Error getting Prototype in GET.VOBJECT_IMP>"; 

} 

break; 

default: 
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cout <C "< ERROR: invalid number args for get vobject IMP>\n M ; 

} 



void get.vobjectjspecfile Junc(int number-arguments, char *proto_name, 

char *operator-name,char *file_write_option,char *versionstr) 

{ 

char *prototype_name = new char [strlen (proto-name) +5]; 
strcpy(prototype .name, proto jiame); 
strcat(prototype_name,PROTOTYPE-EXT); 



switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototypejname); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator-name); 
if (threadPtr) 

{ 



} 



V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr— »current(); 
vobject Jocktime = vobjectPtr— +getLockTime(); 
if (vobject Jocktime>0) // prevent checkout 
{ 

if (strcmp(file-write-option, M w M )==0) // change ”w” to ”r” 

{ 

cerr -C "<ERROR: Module " -C vobjectPtr— +getNodeName() 

" locked by : " <C vobjectPtr— »getWorker() 

-C M Resetting write option to read-only>\n"; 
strcpy(file_wri te .option, "r"); 

} 

else 

cerr "<Caution: " vobjectPtr— ►getNodeNameQ 

< M is locked. > \n" < ''Date Locked: M 

■C ctime(&vobjectJocktime) 

"operator files checked out in read-only mode\n"; 

} 



else 

cerr <C "HODEHAME > " -C vobjectPtr— * get NodeNameQ <^"\n"; 

COMPONENTPtr =vobjectPtr-*getCOMPONENT(); 
if ((COMPONENTPtr— ►getSPECfile(file .write .option)) kb 
((strcmp(file_writej3ption,"W M )==0) || 

(strcmp(file_write .option, "w")==0))) 

{ 



vobjectPtr — > setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — + resetLastOpFalse(); 
vobjectPtr— ►putObjectO ; 

} 
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else 

{ 

coiit <C "<Error getting thread in GET_VOBJECT_SPEC : >\n"; 

} 

} 

else 



{ 

cout <C "< Error getting Prototype in GET_VOBJECT_SPEC: >\n"; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 

{ 



V -OBJECT * vobjectPtr; 

vobjectPtr = threadPtr— >version(atoi(versionstr)); 

vobject Jocktime = vobjectPtr— ►getLockTime(); 

if (vobject Jocktime>0) // lock was set.. prevent ”w” checkout 

{ 

if (strcmp(file_write_option,"w")==0) // if attempting ”w” - change to 

{ 

cerr "<ERR0R: Module " vobjectPtr— ►getNodeName() 

" locked by : " <C vobjectPtr— »get Worker () 

<C " Resetting write option to read-only>\n"; 
strcpy(file-write_option,"r"); 

} 

else 

cerr <C "<Caution: M vobjectPtr— >-getNodeName() 

<C " is locked. > \n" <C "Date Locked: " 

<C ctime(&vobject Jocktime) 

<C "operator files checked out in read-only mode\n M ; 

} 



else 

cerr < "HODEHAHE > " < vobjectPtr-»getNodeName() < M \n M ; 

COMPONENTPtr = vobjectPtr^getCOMPONENT(); 
if ((COMPONENTPtr ->getSPECfile(file.writejDption)) tk 
((strcmp(file_writejoption,"W" )==0) 1 1 
(strcmp(file_write_option,"w")==0))) 

{ 

vobjectPtr — *■ setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— *putObject() ; 

} 

} 

else 



» 



{ 

cout ■C! "<Error getting thread in GET_VOBJECT_SPEC: >\n"; 
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} 

} 

else 

{ 

cout "<Error getting Prototype in GET_VOBJECT_SPEC>"; 

} 

break; 

default: 

cout <C "<ERR0R: invalid number args lor get vobject SPEC>\n"; 

} 



void get jvobject_sourcefile Junc(int number-arguments, char *proto_name, 

char *operator_name,char *file_write_option,char *versionstr) 

{ 

char ^prototype-name = new char [strlen(proto_name)-|-5]; 

strcpy(prototype_name,proto_name); 

strcat (prototype-name, PROTOTYPE -EXT); 



switch (number-arguments) 

{ 



case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operatorjiame); 
if (threadPtr) 

{ 

V -OBJECT * vobject Ptr; 
vobjectPtr = threadPtr— ►currentO; 
vobject Jocktime = vobjectPtr— ►getLockTimeQ; 
if (vobjectJocktime>0) // prevent checkout 

{ 

if (strcmp(file_write_option,"w M )==0) // change ”w” to ”r” 

{ 

cerr M < ERROR : Module M <C vobjectPtr— ►getNodeNameQ 

< " locked by : " vobjectPtr— ►getWorkerO 

<C " Resetting write option to read-only>\n"; 
strcpy(file_write_option, M r M ); 

} 



} 



else 

cerr <C M <Caution: M <C vobjectPtr— ►getNodeName() 

<C " is locked. > \n" <C "Date Locked: " 

ctime(&;vobject Jocktime) 

<C "operator files checked out in read-only mode\n"; 



else 

cerr < "HODENAME > •• < vobject Ptr^getNodeName() <"\n"; 

COMPONENTPtr =vobjectPtr— ►getCOMPONENTQ; 
if ((COMPONENTPtr— ►getSOURCEfile(file_write.option)) kk 
((strcmp(file_writejoption, M W")==0) || 
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(strcmp(file_write.option,"w")==0))) 

{ 

vobjectPtr — ► setLock(); 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— »putObject(); 

} 

} 

else 



{ 

cout "<Error getting thread in GET-VOBJECT.SOURCE: >\n"; 

} 

} 

else 



{ 

cout <C M <Error getting Prototype in GET- VOBJECT- SOURCE: >\n M ; 

} 

break; 
case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V -OBJECT *vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobject Jocktime = vobjectPtr— ►getLockTime(); 
if (vobject Jocktime>0) / / prevent checkout 

{ 

if (strcmp(file-write_option, M w M )==0) // change ”w” to ”r” 

{ 

cerr << M <ERR0R: Module " vobjectPtr— ►getNodeNameQ 

" locked by : " <C vobjectPtr— ►getWorkerQ 

< " Resetting write option to read-only>\n"; 
strcpy(file_write .option , " r " ) ; 

} 



} 



else 

cerr "<Caution: M vobjectPtr— ►getNodeNameQ 

< M is locked. > \n" < "Date Locked: " 

<C ctime(&vobjectJocktime) 

"operator files checked out in read-only mode\n" 



else 

cerr < "HODEHAME > " < vobject Ptr-+getNodeName() « M \n n ; 

COMPONENTPtr = vobjectPtr— ►getCOMPONENTQ; 
if ((COMPONENTPtr— ►getSOURCEfile(file-write-option)) kk 
((strcmp(file-writejoption,"W")==0) || 
(strcmp(file_write_option, M w M )==0))) 

{ 

vobjectPtr — ► setLock(); // set root lock 
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vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— ►putObject(); 

} 

} 

else 

{ 

cout <C "<Error getting thread in GET- VOBJECT- SOURCE: >\n"; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in GET_VOBJECT-SOURCE>"; 

} 

break; 

default: 

cout M <ERR0R: invalid number args for get vobject S0URCE>\n"; 

} 



void dump_vobject_fi]es_func(int number-arguments, char *proto_name, 

char *operator_name,char *file_write_option,char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto-name)+5]; 
strcpy (prototype .name, proto-name); 
strcat(prototype-name,PROTOTYPE_EXT); 

Boolean file-operation .successful = FALSE; 

switch (number^arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator-name); 
if (threadPtr) 

{ 

V-OBJECT * vobjectPtr; 
vobjectPtr = threadPtr— ►current (); 
vobject Jocktime = vobjectPtr— ►getLockTime(); 
if (vobject Jocktime>0) 

// lock was set. .prevent ”w” checkout 

{ ' 

if (strcmp(file_writejoption,"w")==0) 

// if attempting ”W” - change to ”r” 

{ 

cerr <C "<ERR0R: Module " 

< vobjectPtr— ►getNodeName() <C " locked by : " 

<C vobjectPtr— ►get Worker() 

<C M Resetting write option to read-only >\n"; 
strcpy(file_writejoption,"r"); 
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} 



} 

else 

cerr <C "CCaution: M C vobjectPtr— ►getNodeName() 

M is locked. > \n" <C M Date Locked: M 

ctime(&vobject Jocktime) 

<C "operator files checked out in read-only mode\n" 



else 

cerr <C "IODEHAME > " C vobjectPtr— ►getNodeName() <C"\n"; 

file.operatioiusuccessful = 

vobjectPtr — ► checkoutCOMPONENTNode(file .write .option); 
if ((file.operationjsuccessful) &&; 

((strcmp(file.writejoption, M W M )==0) || 
(strcmp(file.write.option, M w M ):=:=0))) 

{ 

vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorkerQ; 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— ►putObjectQ; 



. } 

if (!file.operation_successful) 

cerr <C "<Error checking out " <C vobjectPtr — ►getNameQ ; 

} 

else 

{ 

cout <C "<Error getting thread in GET.VOBJECT.FILES : >\n"; 

} 

} 

else 

{ 

cout -C "<Error getting Prototype in GET.VOB JECT.FILES : >\n"; 

} 

break; 
case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V .OBJECT # vobjectPtr; 

vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobject Jock time = vobjectPtr— ►getLockTime(); 
if (vobjectJocktime>0) // prevent checkout 
{ 

if (strcmp(file.write.option, M w M )==0) // change v w” to ”r” 

{ 

cerr "<ERR0R: Module " <C vobjectPtr— ►getNodeNameQ 
" locked by : " <C vobjectPtr— ►get Worker () 

< " Resetting write option to read-only>\n"; 
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strcpy (file -write .option , M r M ) ; 



} 



} 



else 

cerr "CCaution: " <C vobjectPtr— ►getNodeNameQ 

< M is locked. > \n H < “Date Locked: " 

ctime(&vobjectJocktime) 

-C M operator files checked out in read-only mode\n M ; 



else 

cerr < "HODEHAME > •• < vobjectPtr— getNodeName() «"\n"; 

COMPONENTPtr = vobjectPtr— getCOMPONENT(); 
file-operationjsuccessful = 

vobjectPtr — checkoutCOMPONENTNode(file .write option); 
if ((file_operationjsuccessful) && 

((strcmp(file_write_Dption, M W M )==0) || 
(strcmp(file_writejoption/'w M )==0))) 

{ 

vobjectPtr — setLock(); // set root lock 
vobjectPtr — set\Vorker(); 
vobjectPtr — resetLastOpFalseQ; 
vobjectPtr— putObjectQ; 



_ } 

if (!file_operationjsuccessful) 

cerr "<Error checking out " <C vobjectPtr — getNameQ ; 

} 

else 

{ 

cout "<Error getting thread in GET_VOBJECT_FILES: >\n"; 

} 

} 

else 

{ 

cout < "<Error getting Prototype in GET_VOBJECT_FILES>"; 

} 

break; 

default: 

cout <C "<ERR0R: invalid number args for get vobject FILES>\n M ; 

} 

} 

void dump_vobject_treeJunc(int number-arguments, char *proto_name, 

char *operator-name,char *file_write_option, char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)-f5]; 
strcpy(prototype ji ame, proto -name); 
strcat(prototype-name,PROTOTYPE-EXT); 

Boolean file.operation successful = FALSE; 

switch (number-arguments) 

{ 
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case 3: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototypejiame); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operatorjiame); 
if (threadPtr) 

{ 

V -OBJECT * vobjectPtr = threadPtr— ►currentQ; 
vobject Jocktime = vobjectPtr— ►getLockTime(); 
if (vobjectJocktime>0) // prevent checkout 

{ 

if (strcmp(file_write_option, ,, w ,, )==0) // change ”w ” to ”r n 

{ 

cerr <C "<ERR0R: Module M vobjectPtr— ►getNodeNameO 

<C " locked by : " <C vobjectPtr— ►get Worker() 

<C " Resetting write option to read-only>\n"; 
strcpy(file_writejDption,"r M ); 

} 

cerr <C "CCaution: M <C vobjectPtr— ►getNodeNameO 

" is locked. > \n" "Date Locked: " 

ctime(&;vobject Jocktime) 

<C "Subtree checked out in read-only mode\n"; 

} 

else 

cerr <C "HODEHAME > " <C vobjectPtr— ►getNodeNameO 

"\nVersion: " vobjectPtr— ►get VersionNumber() <C M \n\n" 

file_operation_successful = 

vobjectPtr — ► checkoutCOMPONENTNode(file .write option); 
if ((file_operation-successful) && 

((strcmp(file-writejDption,"w M )==0) || 
(strcmp(file-write_option, M W ,, )==0))) 

{ 

vobjectPtr — ► setLockQ; // set root lock 
vobjectPtr — ► setWorkerQ; 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— ►putObjectO ; 

_ } 

if (file_operationj5uccessful) 

vobjectPtr — ► dumpSubtree(file_write_option); 

// dump rest of tree 
else 

cerr <C "<Error checking out M vobjectPtr — ►getNameO 
< " Aborting dump_vobject_tree_func>\n"; 

} 

else 

{ 

cout M <Error getting thread in DUMP-VOBJECT.TREE : >\n"; 

} 

} 

else 

{ 
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cout <C "<Error getting Prototype in DUMP_VOBJECT_TREE: >\n M ; 

} 

break; 
case 4: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 

{ 

V.OBJECT *vobjectPtr = threadPtr— *version(atoi(versionstr)); 
vobject Jocktime = vobjectPtr— ►getLockTimeQ; 
if (vobject Jocktime>0) / / prevent checkout 
{ 

if (strcmp(file_write_option,"w M )==0) // change ”w” to ”r” 

{ 

cerr <C M <ERR0R: Module " vobjectPtr— ►getNodeNameQ 

" locked by : M <C vobjectPtr— ►getWorkerQ 

< ^ " Resetting write option to read-only>\n M ; 
strcpy(file_writejDption,"r"); 

} 



else 

cerr <C "CCaution: " vobjectPtr— >getNodeName() 

<C " is locked. > \n" <C ’’Date Locked: M 

<C ctime(&vobject Jocktime) 

<C "Subtree checked out in read-only mode\n"; 



} 

else 

cerr "HODENAME > " <C vobjectPtr— *getNodeName() 

"\nVersion: " C vobjectPtr— ►getVersionNumberQ <C'\n\n" 

file_operation_successful = 

vobjectPtr — ► checkoutCOMPONENTNode(file_write_option); 
if ((file_operation_successful) && 

((strcmp(file_write_option,"w M )==0) 1 1 
(strcmp(file_write_option, M W M )==0))) 

{ 



vobjectPtr — ► setLock(); // set root lock 
vobjectPtr — ► setWorker(); 
vobjectPtr — ► resetLastOpFalse(); 
vobjectPtr— ►putObjectQ; 



. } 

if (file-operation .successful) 

vobjectPtr — ► dumpSubtree(file_writejoption); 

// dump rest of tree 
else 

cerr <C "<Error checking out " <C vobjectPtr — ►getNameO 
" Aborting dump_vobject_tree_f unc>\n"; 

} 

else 

{ 
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} 

else 

{ 



cout <C M <Error getting thread in DUMP_VOBJECT_TREE: >\n M ; 

} 



cout <c "<Error getting Prototype in DUMP. VDB J ECT.TREE > " ; 

} 

break; 

default: 

cout < "<ERR0R: invalid number args for get vobject TREE FILES>\ 

} 

} 

void long_list_operators_func(int number_arguments, char *proto_name, 

char ^operator Jiame,char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)-b5]; 
strcpy(prototype .name, proto jiame); 
strcat(prototype_name, PROTOTYPE .EXT); 

switch (number^arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype .name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator Jiame); 
if (threadPtr) 

{ 

V.OBJECT *vobjectPtr = threadPtr— *current(); 
vobjectPtr — * longlistOperatorNames(); 

} 

else 

{ 

cout <C "<Error getting thread in long list operators : >\n 

} 

} 

else 

{ 

cout <C *'<Error getting Prototype in long list operators : >\n" 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPE*)OC_lookup(prototype .name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator Jiame); 
if (threadPtr) 

{ 

V.OBJECT *vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobjectPtr— donglistOperatorNamesQ; 
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} 

else 

{ 

cout -C "<Error getting thread in long list operators : >\n M 

} 

} 

else 

{ 

cout -C "<Error getting Prototype in long list operators>"; 

} 

break; 

default: 

cout H <ERR0R: invalid number args for long list operators>\n"; 

} 

} 

void longJist-children Jimc(int number_arguments, char *proto_name, 

char *operator_name,char *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)-j-5]; 
strcpy(prototype_name, proto-name); 
strcat(prototype_name,PROTOTYPE_EXT); 

switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator jiame); 
if (threadPtr) 

{ 

V -OBJECT *vobjectPtr = threadPtr— »current(); 
vobjectPtr — ► listChildren(); 

} 

else 

{ 

cout •< "<Error getting thread in LONG.LIST.CHILDREN: >\n"; 

} 

} 

else 

{ 

cout <C M <Error getting Prototype in LONCLLIST-CHILDREN: >\n"; 

} 

break; 

case 3: 

prototypeptr = (PROTOTYPEt)OC Jookup(prototypejiame); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 
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{ 

V -OBJECT * vobjectPtr = threadPtr— ►version(atoi(versionstr)); 
vobjectPtr— ►listChildren(); 

} 

else 

{ 

cout "<Error getting thread in LONG-LIST-CHILDREN : >\n" ; 

} 

} 

else 

{ 

cout <c "<Error getting Prototype in LONG_LIST_CHILDREK> M ; 

} 

break; 

default: 

cout <C M <ERR0R: invalid number args for long list children >\n"; 

} 

} 

void longJist-parentsJunc(int number-arguments, char *proto_name, 

char *operator_name,cliar *versionstr) 

{ 

char *prototype_name = new char [strlen(proto_name)-f-5]; 
strcpy (prototype-name, proto_name); 
strcat(prototypejiame,PROTOTYPE_EXT); 

switch (number_arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C Jookup(operator_name); 
if (threadPtr) 

{ 

V.OBJECT *vobjectPtr = threadPtr— ►currentQ; 

V-OBJECT *parentPtr = vobjectPtr— ►get Parent(); 
if (parentPtr) 

{ 

V_OBJECT *grandparent = parentPtr— ►get Parent(); 
if (grandparent) 

grandparent — ► listChildren(); 
else 

cout " <\nRoot Hode: " 

<C parentPtr— ►getNodeName() ">\n"; 

} 

else 

cout <C M <Already at Root VJOBJECT>\n M ; 



} 

else 

{ 
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cout <C "<Error getting thread in L0NG_LIST_ CHILDREN: >\n"; 

} 

} 

else 

{ 

cout <C "<Error getting Prototype in LONGLLIST.CHILDREN : >\n"; 

} 

break; 

case 3: 

prototypeptr — (PROTOTYPE*)OC_lookup(prototype_name); 
if (prototypeptr) 

{ 

threadPtr = (THREAD *)0C -lookup (operator -name); 
if (threadPtr) 

{ 

V -OBJECT *vobjectPtr — threadPtr— ►version(atoi(versionstr)); 

V -OBJECT *parentPtr = vobjectPtr— ►getParentQ; 
if (parentPtr) 

{ 

V -OBJECT ^grandparent = parentPtr— ► getParentQ; 
if (grandparent) 

grandparent — ► listChildrenQ; 
else 

cout "CCan't list Parent/siblings of Root V_0bject>\n" 

} 

else 

cout "<Already at Root V_OBJECT>\n"; 

} 

else 

{ 

cout <C "<Error getting thread in LONGLLIST- CHILDREN : >\n"; 

} 

} 

else 

{ 

cout M <Error getting Prototype in LONG_LIST_CHILDREN>*'; 

} 

break; 

default: 

cout < "<ERR0R: invalid number args for long list children >\n"; 

} 

} 

void add -vobject-and -subtree _func(int number-arguments, char *proto_name, 

char *operator_name) 

{ 

char *prototype-name — new char [strlen(proto_name)+5]; 
strcpy(prototype jiame,proto-name); 
strcat(prototypejiame,PROTOTYPE-EXT); 
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switch (number-arguments) 

{ 

case 2: 

prototypeptr = (PROTOTYPE*)OC _lookup(prototype_name); 
if (prototypeptr) 

{ 

DIRECTORY *capsdirectory; 
capsdirectory = new DIRECTORY0; 
capsdirectory— ♦ read -directory (operator .name); 
capsdirectory — ►updatetimestampQ ; 

TREENODEJinkedlist operatorList = capsdirectory— ►getOperatorListQ; 
TREENODE *rootnode = capsdirectory— + find _treenode(operator .name); 
TREENODE *tree_root = new TREENODE(rootnode, NULL); 

TREE *workingtree = new TREE(tree.root, operator_name); 
workingtree— ►build_tree(tree .root, operator List) ; 
cerr "CHECKIH — > " operator .name "\n"; 

threadPtr = (THREAD *)OCJookup(operator_name); 

V.OBJECT *new -parent = (V.OBJECT *)0; 
if (threadPtr) 

{ 

V.OBJECT *vobjectPtr = threadPtr— >current(); 
new.parent = vobjectPtr— *getParent(); 

} 

V.OBJECT *new_root = tree_root— ►checkin _node(new parent); 
if (!new_root) 

{ 

cerr <C "<Error: Could not establish new_root in" 

< ^ M add.vobject_and_subtree_func. Aborting. >\n M ; 
break; 

} 

new_root— ►setNodeName(tree_root— ►getname()); 
tree_root— ►checkin_subtree(new .root); 

} 

else 

{ 

cout -C M <Error getting Prototype in ADD.VOBJECT.Subtree : >\n M ; 

} 

break; 

default: 

cout -C M <ERR0R: invalid number args for add vobject k SUBTREE>\n" 

} 
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APPENDIX E 



SETUP FILES 

A. ONTOS HEADERS/MAKEFILES PREPARATION NOTES 

Only the ReferenceMacros.h ONTOS specific header file is included in this appendix 
due to its unique nature. It is a file built after the ONTOS system was released and was not 
included with the standard beta package. 

The makefiles are included as an aid for the user in developing ONTOS applications. 

B. PRINTING NOTES 

This code was prepared for printout using the c++21atex code generator. This generator parses the 
ASCII text input files and places latex commands where directed. This makes the code layout more readable 
and highlights the important data strucutes and key words within the C++ code. The latex output was then 
converted to postscript format with the dvitops program. 

C. MAINTENANCE 

This code is maintained at the Naval Postgraduate School Computer Science department. 
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//File Header 

//. : 

//.Filename : ReferenceMacros.h 

//.SCCS ID : 1.3 

//.Release No....: 1 

//.Date : 9/16/91 

//.Compiler : Glockenspiel C++ 2.1 

//. : 

// End header comments 

/* 

* 

* Disclaimer: 

* 

* This header file is a special header developed entirely by 

* Ontologic, Inc. 

* Copyright (c) 1990, Ontologic, Inc. USA All rights reserved. 

* 

* It’s purpose is to handle Ontos References within the user code of 

* the Design Database System and thus is included as an integral portion 

* of the Design Database code. 

.......................................................................... 



#include <Reference.h> 

// Note that the compiler must know that SpecType is an Entity*, 

// e.g., by having seen the appropriate class definition. 

// FOR Macro form use this define and continuation characters. 

#define TypeCheckReference( SpecReference, SuperReference. SpecType )\ 

class SpecReference : public SuperReference (\ 

public:\ 

SpecReferenceO { }\ 

SpecReference(SpecType* referent. Entity* context)\ 

: (referent, context) { )\ 

SpecReference(SpecType* referent, StorageManager* context)\ 

: (referent, context) { )\ 

SpecReference(SpecType* referent)\ 

: (referent) { }\ 

void Reset(Entity* referent. Entity* context)\ 

{\ 

S uperReference: :Reset(referen t, context);\ 

}\ 

void Reset(Entity* referent, StorageManager* context)\ 
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SuperReference: :Reset(referent, context);\ 

}\ 

void Reset(Entity* referent)\ 

{\ 

SuperReference: :Reset(referent);\ 

}\ 

void Reset(SpecReference& otherRef, \ 

StorageManager* oldContext,\ 

StorageManager* cuirentContext)\ 

f\ 

SuperReference: :Reset(otherRef, oldContext, currentContext);\ 

}\ 

void Reset(SpecReference& otherRef, \ 

Entity* oldContext, \ 

Entity* currentContext)\ 

{\ 

SuperReference: :Reset(otherRef, oldContext, currentContext);\ 

)\ 

void Init(SpecType* referent. Entity* context)\ 

{\ 

SuperReference: :Init(referent, context);\ 

]\ 

void Init(SpecType* referent, StorageManager* context)\ 

{\ 

SuperReference: :Init(referent, context);\ 

}\ 

void Init(SpecType* referent)\ 

(\ 

SuperReference::Inil(referent);\ 

}\ 

void Init(SpecReference& otherRef, \ 

StorageManager* oldContext, \ 

StorageManager* currentContext)\ 

{\ 

SuperReference: :Init(otherRef, oldContext, currentContext);\ 

}\ 

void Init(SpecReference& otherRef, \ 

Entity* oldContext, \ 

Entity* currentContext)\ 

{\ 

SuperReference: :Init(otherRef, oldContext, currentContext);\ 

)\ 

SpecType* Binding(Entity* context, LockType lock=DefaultLock)\ 

(\ 

return (SpecType*) SuperReference::Binding(context, lock);\ 

)\ 

SpecType* Binding(StorageManager* context, \ 

LockType lock=DefaultLock)\ 

return (SpecType*) SuperReference::Binding(context, lock);\ 

)\ 
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SpecType* activeBinding(Entity* context)\ 

return (SpecType*) SuperReference::activeBinding(context);\ 

}\ 

SpecType* activeBinding(StorageManager* context)\ 

(\ 

return (SpecType*) SuperReference::activeBinding(context);\ 

}\ 

} /* invocation supplies final */ 



#* 

^*************** *************************************** ********* *********** 
#* 

#* Ontologic, Inc. 

#* Copyright (c) 1990, Ontologic, Inc. USA All rights reserved. 

#* 

£************************************************************************** 

#* 

# file: makefile 
include make-macros 

OBJECTS = main.o componento versioned_objecLo thread.o text_objecLo \ 
prototype.o configuration.o evaluation.o directory.oX 
tree.o treenode.o queue.o nodesupport.o protfunc.o \ 
conffunc.o vobjectfunc.o 

CLASSIFY_HDRS = thread. h text_object.h prototype.h configuration.h \ 
componenLh versioned_object.h 

NONCLASS IF Y_HDRS = evaluation^ directory.!! tree.h treenode.hX 

queue.h nodesupporth protfunc.hX 

conffunc.h vobjectfunc.h ddbdefines.h tracer.h 

HEADERS = $(CLASSIFY_HDRS) $(NONCLASSIFY_HDRS) 

# 

# Objectfile/Headerfile dependencies: 

# Persistent classes need their headers, and the application 

# needs all headers. 

# 

tree.o: tree.h 

nodesupport.o: nodesupport.h 
protfunc.o: protfunc.h 
evaluation.o: ddbdefines.h 
componento: componenLh ddbdefines.h 
thread.o: thread.h ddbdefines.h 
versioned_objecto: versioned_objecLh 
text_object.o: text_objecLh ddbdefines.h 
configuration.o: configuration.h 
prototype.o: prototype.h 
main.o: $(HEADERS) 
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include make-targets 



#* 



#* 

#* Ontologic, Inc. 

#* Copyright (c) 1990, Ontologic, Inc. USA All rights reserved. 
#* 



#* 



# file: make-macros 

# 

# Cplus sets up function bindings and then calls CC, but 

# doesn’t always produce the best warnings and error-messages 

# So use CC when debugging warnings and errors, and use 

# cplus to prepare for linking 

# You can choose a compiler on the UNIX command line; just 

# specify COMPILER, e.g., ‘make COMPELER=CC’ 

#- 

COMPILER = $(ONTOS_BIN)/cplus 
#COMPILER = CC 

# We have versions for SUN and GLOCK 
#WHICH_COMPILER = CC.SUN 
WH1CH_C0MPILER = CC.GLOCK 

# 

# Flags for classify: See the System Reference 

# By choosing EXTENSION=+X (perhaps on the command line) one 

# enables instance-iteration 

# 

# By choosing VERBOSE=+v (perhaps on the command line) one 

# can see output from ‘classify’ 

# 

#- - 

VERBOSE = 

# VERBOSE = +v 
EXTENSION = 

#EXTENSION = +X 

ONTOS_DER= /usr/local 
ONTOS_BfN= $(ONTOS_DIR)/bin 

INCLUDE = -I$(ONTOS_DIR)/include/ONTOS -I$(ONTOS_DIR)/include/hxx -I/usr/include 
LIBRARY = -L$(ONTOS_DIR)/lib -10NT0S 
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KERNEL_DB = $(ONTOS_DIR)/ontos/db/OniosSchema 
REGISTER_FLAG = $(THE_DB_DIR)/alreadyRcgistered 

SERVER_HOST = sun51 

THE_DB_DIR = $(HOME)/ontos 
MY.NAME = ddb53 

first_target: again 

#* 

ft ************************************** ********************** ************** 
#* 

#* Ontologic, Inc. 

#* Copyright (c) 1990, Ontologic, Inc. USA All rights reserved 
#* 

y ****************************************************************** ******** 
#* 



# file: make-targets 

ft— ===============— =========================== 

#================================== 

# The first part of this file establishes relevant information. 
#======================= 

M==— ==================== 

# 

# Extra flags for the compiler/linker, -g means include debug info. 

# -Bstatic forces the loader to use static libraries, which may 

# help debugging. 

# 

CFLAGS = -g 

LFLAGS = -g -Bstatic 

# 

# How to make a .o when its .cxx has been touched. 

# 

.SUFFIXES: .cxx 

.cxx.o: 

@echo ‘... Compiling $*.cxx with $(COMPILER)’ 

@if [ “$(COMPILER)” = “CC” ]; \ 

then $(COMPILER) -c -D$(WHICH_COMPILER) $(CFLAGS)\ 
$(INCLUDE) $*.cxx; \ 
rm -f $*.o;\ 
else\ 

$(COMPILER) -c -D$(WHICH_COMPILER) $(CFLAGS)\ 

$(INCLUDE)$*.cxx;\ 

fi 

#============== === === 
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#= == =============== == === 

# The second part of this file uses the above information to 

# let you ‘make* the various goals. 
#============== == = === == 

# ==== = = ===== === == 

# Recompile/relink/reload-schemata if necessary 

again: main loadTypes 
test: again 

main $(MY_NAME) 

#- 

# Register, compile, link, load-schemata 

first: register main loadTypes 

# 

# Link/compile the program, if necessary 

# 

main: S(OBJECTS) 

@echo ... Linking main 

@($(COMPILER) $(LFLAGS) -o main -QUIET \ 

$(OBJECTS) $(LIBRARY)) 

# 

# Establish logical-to-physical mapping for database fragment 

# 

register: 

@if [ -f $(REGISTER_FLAG) ]; then \ 
echo You are already registered!; \ 
exit 1;\ 

else touch $(REGISTER_FLAG); \ 
fi 

#cp $(KERNEL_DB) $(TH E_DB_DIR)/$(M Y_N AME) 
#chmod u+w $(THE_DB_DIR)/$(MY_NAME) 

#@echo ... Running DBATool to register 
#<2) $(ONTOS_BIN)/DB AT ool -e\ 

# register kernel $(MY_NAME)_kem on $(SERVER_HOST) \ 

# at $(THE_DB_DIR)/$(MY_NAME) 
#@$(ONTOS_BIN)/DBATool -e\ 

# add area $(MY_NAME)_kem to $(MY_NAME) 

# Add two more areas to the logical database, which initially 

# contained only the kernel-area. 

# 

# We also illustrate the process of determining which area is 

# primary. 

@$(ONTOS_BIN)/DBATool -e\ 
create area $(MY_NAME)_A1 on $(SERVER_HOST) \ 
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at $(THE_DB_DIR)/$(MY_NAME)_areal 
@S(ONTOS_BIN)/DBATool -e\ 
create area $(MY_NAME)_A2 on $(SERVER_HOST) \ 
at $(THE_DB_DIR)/$(MY_NAME)_area2 
@$(ONTOS_BIN)/DBATool -e\ 
add area $(MY_NAME)_A 1 to $(MY_NAME) 
@$(ONTOS_BIN)/DBATool -e\ 
add area $(MY_NAME)_A2 to $(MY_NAME) 
@$(ONTOS_BIN)/DBATool -e\ 
set db $(MY_NAME) primary $(MY_NAME)_kem 
@$(ONTOS_BIN)/DBATool -e\ 
show db $(MY_NAME) 

@$(ONTOS_BIN)/DBATool -e\ 
show db 

# 

# Make backup copies of the areas, so that we can always start 

# fresh. We can’t simply copy the master version of OntosSchema 

# since (a) we can register a kernel only once and (b) when 

# we register the kernel, OCServer changes an area-mapping 

# section in the header of the area. 

# 

(2) echo 

@echo Waiting for the above changes to take hold before 
@echo making backup copies, 
sleep 20 

-mkdir $(THE_DB_DIR)/backup 

cp $(THE_DB_DIR)/$(MY_NAME)_Kemel $(THE_DB_DIR)/backup 
cp $(THE_DB_DIR)/$(MY_NAME)_area? $(THE_DB_DIR)/backup 

# 

# Refresh your Directory in the kernel database, and prime 

# schema for reloading. 

# 

freshDB: 

@rm -f loadTypes 

@mn -f $(THE_DB_DIR)/*JRN* 

@cp $(THE_DB_DIR)/backup/* $(THE_DB_DIR) 
chmod ugo+rw S(THE_DB_DIR)/$(MY_NAME) 

# 

# Load schemata, i.e., information about user-defined types 

# into the database. Since we don’t support migration, load 

# is performed only on a fresh database 

# 

# +D indicates logical database. 

# 

loadTypes: $(CLASSIFY_HDRS) 

(2) make freshDB 
@make loadTypes2 
@ touch loadTypes 
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